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Abstract 


This  Graduate  Research  Project  is  an  improvement  to  the  Tanker  Employment 
Model  developed  by  Maj.  Margaret  Romero.  Her  model  which  uses  Excel  VBA  is  used 
to  determine  the  tanker  capacity  requirements  needed  to  perform  specific  user  defined 
tanker  employment  missions.  The  output  is  useful  for  rough-cut  analysis  of  the  tanker 
employment  mission. 

The  improvement  to  the  Tanker  Employment  Model  is  the  capability  to  use 
multiple  tanker  types  simultaneously.  The  model  chooses  the  optimum  order  for  the 
tanker  types  and  number  of  tankers  to  support  a  specific  tanker  employment  mission.  It 
also  provides  additional  information  to  compare  the  use  of  multiple  tankers. 
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IMPROVING  THE  TANKER  EMPLOYMENT  MODEL 


I.  Introduction 

1.1  Background 

Refueling  aireraft  while  in  flight  is  e ailed  air  refueling.  The  aireraft  that  delivers 
the  fuel  is  ealled  a  tanker  aireraft  and  the  aireraft  that  reeeives  the  fuel  is  ealled  a  reeeiver 
aireraft.  Tanker  aireraft  indefinitely  extend  the  range  of  reeeiver  aireraft. 

Air  refueling  is  one  of  the  distinguishing  charaeteristies  that  make  the  United 
States  the  predominant  air  power  nation  on  the  globe.  It  allows  eombat  and  support 
aireraft  to  strike  targets  deeper  in  enemy  territory,  extends  the  time  fighter  aireraft  ean 
proteet  friendly  forees  from  attaek  by  enemy  aireraft,  and  supports  the  extension  of  the 
United  States’  military  presenee  around  the  world  (Capehart,  2000:1). 

The  number  of  tanker  types  is  inereasing  with  the  purehase  of  the  KC-767  and 
KC-45  tankers  by  our  allies.  The  USAF  signed  a  eontraet  for  the  purehase  of  175  new 
KC-45  tankers  in  Mareh  2008.  Tankers  have  different  eapabilities  and  often  fly  different 
routes  to  support  the  same  mission  and  thus  arrive  at  their  offload  point  with  different 
amounts  of  fuel  available  for  refueling  operations.  The  variability  of  fuel  available  for 
refueling  operations  makes  it  diffieult  for  planners  to  quiekly  identify  the  number  and 
type  of  tankers  needed  for  a  mission. 

1.2  Problem  Motivation 

Major  Romero’s  rough-eut  Tanker  Employment  Model  (TEM)  provides  AMC 
with  an  effieient  tool  for  quickly  assessing  tanker  employment  capabilities.  (Romero, 
2006)  Unlike  Major  Romero’s  model  the  U.  S.  Military  and  its  allies  use  multiple  tanker 


1 


types.  Tankers  have  a  wide  range  of  capabilities  and  capacities  and  this  directly  impacts 
what  missions  they  are  best  suited  to  perform.  The  number  of  tanker  types  is  increasing 
with  the  purchase  of  the  KC-767  tankers  by  our  allies.  (Boeing,  2008)  The  USAF  signed 
a  contract  for  the  purchase  of  up  to  179  new  KC-45  tankers  in  early  2008.  (Officials, 
2008)  Due  to  the  Joint  and  Coalition  nature  of  today’s  warfare,  a  tool  must  have  the 
capability  to  model  all  potential  tanker  types/characteristics  to  better  represent  the  reality 
of  the  current  missions. 

1.3  Problem  Statement 

Air  Mobility  Command  lacks  a  simple,  efficient  tool  for  analysis  of  strategic 
tanker  capabilities  during  the  employment  phase  of  military  operations.  The  Tanker 
Employment  Model  developed  by  Major  Margaret  M.  Romero,  USAF  was  designed  to 
meet  this  deficiency.  The  Tanker  Employment  Model  fails  to  model  the  multiple  tanker 
type  environments  in  which  the  USAF  operates.  This  makes  the  model  less  useful  for  the 
AMC  planners.  This  model  should  be  modified  now  because  Major  Romero  has  created 
momentum  on  the  topic  and  modifying  the  model  may  result  in  a  simple  efficient  tool 
which  is  useful  for  current  and  future  operations. 

1.4  Research  Objectives 

The  goal  of  this  research  is  to  add  a  multiple  tanker  option  to  the  tanker 
employment  model  to  produce  a  simple,  efficient  rough-cut  tool  to  assist  planners  in 
quick  turn  analysis  or  gross  feasibility  checks.  The  following  questions  in  section  1 .5 
must  be  answered  in  order  to  improve  the  current  model. 
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1.5  Research  Questions 

1 .  What  characteristics  of  tankers  are  important  in  assigning  missions  to  tankers? 

2.  What  are  the  types  of  tankers  available  for  operations? 

3.  What  is  the  best  method  to  add  the  multiple  tanker  capability  to  the  model? 

4.  What  is  the  best  technique  to  assign  tankers  groups  to  offload  required  for 
receivers? 

1.6  Scope 

The  seope  of  this  research  project  is  limited  to  adding  the  multiple  tanker  type 
capability  to  the  Tanker  Employment  Model.  It  is  expeeted  that  modifying  the  model 
will  result  in  a  tool  that  will  be  used  for  planning  tanker  employment. 

1.7  Implications 

This  research  provides  a  useful,  simple,  efficient  rough-cut  tool  to  assist  planners 
in  tanker  employment  operations.  This  tool  may  provide  insight  into  other  fueling 
operations  involving  multiple  fueling  locations  and  multiple  users. 
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II.  Literature  Review 


2.1  Research  Question  1:  Tanker  characteristics 

What  characteristics  of  tankers  are  important  in  assigning  missions  to  tankers  on 
employment  missions? 

The  USAF  reeently  identified  the  key  eharaeteristics  of  tankers  when  they 
solieited  bids  for  a  new  tanker  to  support  the  USAF.  They  evaluated  the  two  contenders 
using  objeetive  measurements,  ealled  Key  Performance  Parameters,  and  subjeetive  ones, 
called  Factors. 

Factors: 

1 .  Mission  capability  (key  system  requirements,  system  integration  software, 
product  support,  program  management,  teehnology  maturity  and 
demonstration) 

2.  Risk 

3.  Past  performance 

4.  Price,  lifeeycle  eost 

5.  Integrated  fleet  refueling  assessments 
Key  Performance  Parameters 

1 .  Air  refueling  eapability 

2.  Fuel  offload  and  range  at  least  as  great  as  the  KC-135 

3.  Compliant  Communieation,  Navigation,  Surveillanee/Air  Traffie  Management 
(CNS/ATM)  equipment 

4.  Airlift  capability 
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5.  Ability  to  take  on  fuel  while  airborne 

6.  Suffieient  foree  proteetion  measures 

7.  Ability  to  network  into  the  information  available  in  the  battle  spaee 

8.  Survivability  measures  (defensive  systems,  Eleetro-Magnetie  Pulse  (EMP) 
hardening,  chemieal/biologieal  protection,  etc.) 

9.  Provisioning  for  a  multipoint  refueling  system  to  support  Navy  and  allied 
aircraft.  (DefenseNews,  2008) 

More  detailed  characteristics  support  the  above  Eactors  and  Key  Performance 
Parameters.  These  include,  speed,  range,  maximum  takeoffweight,  maximum  transfer 
fuel  rate,  fuel  burn  rate,  maximum  cargo  weight,  maximum  passengers,  maximum  pallets, 
minimum  runway  required,  and  cost  per  plane. 

2.2  Research  Question  2:  What  are  the  types  of  tankers  available  for  operations? 

The  USAE  recently  awarded  a  contract  to  Northrop  Grumman  /  EADS  to  build 
179  tankers.  When  the  first  Northrop  Grumman  /  EADS  tanker  KC-45  is  assigned  to  the 
USAE  in  will  bring  the  total  count  of  USAE  tanker  models  to  three.  Boeing  has 
contested  the  award  of  the  179  tanker  contract  to  Northrop  Grumman  /  EADS  and  it  is 
possible  that  the  contract  award  could  be  overturned.  Japan  and  Italy  has  already  ordered 
the  Boeing  KC-767  tanker  to  support  their  air  forces  and  it  is  possible  that  other  allies 
will  also  purchase  the  Boeing  KC-767.  (Boeing,  2008)  It  is  probable  that  our  allies  will 
continue  to  be  our  allies  and  that  they  will  continue  to  support  and  fight  alongside  us. 
Therefore,  it  is  likely  in  the  near  future  that  USAE  tanker  planners  will  be  conducting 
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missions  with  at  least  the  following  four  main  tanker  types,  the  KC-135,  KC-10,  KC-45 
and  the  KC-767.  Russian  and  other  smaller  U.S.  tankers  may  also  be  used,  but  most 
likely  will  only  be  used  in  limited  amounts.  The  below  tanker  data  and  information 
shows  some  of  the  differenees  between  tanker  types. 

Table  1.  Tanker  Data 


Tanker 

Co. 

Speed 

mph 

Range 

Max 

Take 

off 

(lbs) 

Max 

Off-load 

Avail. 

Cargo 

Pax 

Pallets 

Cost  $ 

Inv 

KC- 

135 

Boeing 

530 

1500m 

322,50 

0 

200,000 

83K 

lbs 

37 

6 

40 

530 

KC- 

10 

Boeing 

619 

4400m 

356,000 

170 

K 

75 

27 

88 

59 

KC- 

45 

Northrop 

300,000 

-h 

280 

32 

$ 

0 

KC- 

767 

Boeing 

400K+ 

202,000 

-h 

190 

19 

$ 

0 

MC- 

130 

Loekheed 

300 

2700n 

m 

155K 

helos 

77 

30 

F/A 

18 

MeDonn 

ell 

M1.8 

1275 

66K 

Fighter 

n/a 

n/a 

57 

Souree:  (Faetsheets,  2008) 


These  differenees  make  some  tankers  more  useful  than  others  for  eertain  missions. 


2,3  Tanker  Type  Comparisons  and  Missions 

The  KC-135  was  first  deployed  in  1956  and  is  slower,  less  effieient,  transfers  the 
smallest  maximum  amount  of  fuel  and  is  least  dependable  eompared  to  all  other  tankers. 
When  other  aireraft,  pilots  and  ground  support  is  available  another  tanker  should  be 
ehosen.  The  only  exeeption  to  this  is  when  the  probability  of  being  shot  down  is  high. 
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the  KC-135  should  then  be  chosen  because  they  are  most  expendable  and  the  pilots  can 
be  easily  replaced  by  a  significant  tanker  pilot  inventory. 

The  KC-10,  which  began  service  in  1981,  carries  the  largest  amount  of  fuel  and 
will  continue  to  carry  the  largest  amount  of  fuel  after  the  KC-767  and  KC-45  enter 
service.  The  KC-10  has  a  significant  higher  fuel  burn  rate  than  all  other  tankers  and  thus 
is  best  suited  for  short  and  quick  refueling  missions.  It  will  remain  the  ideal  choice  of 
planners  to  use  for  missions  of  refueling  other  tankers  and  heavy  bombers  at  short 
distance  from  base.  The  KC-10  also  has  the  second  highest  pallet  capacity  and  is  best 
used  when  maximum  cube  capacity  is  reached  before  maximum  weight  is  reached. 
Another  negative  of  the  KC-10  is  that  it  is  older  and  will  have  an  expected  lower 
operational  rate  than  the  newer  tankers. 

The  Northrop  Grumman  /  EADS  KC-45  is  the  best  aircraft  for  tanker  employment 
missions  that  require  a  large  amount  of  fuel  or  cargo  to  be  transported,  and  fuel 
conservation  is  not  an  issue.  Although  it  carries  less  fuel  than  the  KC-10  its  bum  rate  is 
less  and  may  have  more  fuel  available  for  offload  at  the  fuel  transfer  point.  The  KC-45 
carries  significantly  more  fuel,  cargo,  passengers  and  pallets  than  the  KC-767.  The  KC- 
45  will  be  the  tanker  planner’s  first  choice  on  long  round  trip  missions  that  require  large 
amounts  of  fuel  to  be  transferred  on  missions  such  as  cargo  and  heavy  bomber  missions. 

The  Boeing  KC-767  can  access  more  mnways  in  the  world  due  to  its  shorter 
minimum  required  mnway  and  smaller  footprint  which  leads  to  a  larger  Maximum  On 
Ground  (MOG)  number.  These  advantages  will  lead  planners  to  choose  this  tanker  for 
missions  that  are  fought  by  a  few  fighter  aircraft  in  an  isolated  part  of  the  world.  Another 
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key  advantage  of  the  KC-767  is  its  fuel  effieiency.  It  has  the  lowest  bum  rate  and 
therefore  may  beeome  the  tanker  of  ehoice  when  fuel  supplies  are  limited. 
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III.  Methodology 


3.1  Introduction 

To  obtain  the  approximate  number  of  required  tankers  by  airframe, 
planners  divide  a  tanker  mission  by  a  set  number  to  ascertain  how  many  receivers  can  be 
refueled.  For  instance,  to  determine  the  number  of  aircraft  sorties  which  can  be  refueled 
by  a  KC-10,  the  number  of  tankers  is  divided  by  5.6  (18%);  to  determine  the  same  for  a 
KC-135,  the  number  is  divided  by  4  or  5.  (CWS  401,  2004:2-3).  However,  these  round 
estimates  do  not  take  into  account  any  variables  such  as  available  aircrew,  in  flight 
refueling  of  the  tanker  or  base  support.  (Romero,  2006) 

The  new  Tanker  Employment  Model  provides  the  capability  to  use 
multiple  tankers  in  the  model’s  calculation.  The  model  also  provides  a  limited  capability 
to  compare  multiple  bases.  No  changes  were  made  to  the  original  formulas  of  the  Tanker 
Employment  Model. 

3.2  Assumptions 

1 .  Assumptions: 

a.  The  Tanker  Employment  Model  accurately  models  tanker  operations 
except  for  the  use  of  multiple  tanker  types. 

b.  The  Tanker  Employment  Model  assumes  that  the  fuel  requirement  is 
one  receiver  “super”  aircraft  in  need  of  the  total  fuel  requirement.  No 
calculations  are  made  concerning  fuel  flow  or  offload  times.  Tankers 
arrive  at  the  offload  site,  stay  a  predetermined  amount  of  time,  offload 
all  fuel  required  during  that  time  and  then  return  to  base. 
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c.  The  KC-767  and  KC-30  will  be  aequired  with  the  promised 
eapabilities  and  eapaeities. 

d.  You  may  use  up  to  three  bases,  but  bases  may  have  only  one  type  of 
tanker  operating  at  that  base. 

e.  Many  details  are  not  ineorporated  into  the  ealeulations.  Some  of  these 
faetors  inelude  altitude  flown,  winds,  and  effeets  of  gross  weight  on 
fuel  consumption. 

2.  Limitations: 

a.  Project  is  due  by  May  2008. 

b.  Zero  funding  assigned  for  research. 

c.  One  researcher  working  on  project. 


3,3  Research  Question  3:  What  is  the  best  method  to  add  the  multiple  tanker 
capability  to  the  model? 

One  method  considered  to  add  this  capability  was  to  use  programming  software 
such  as  Java  which  would  interface  with  the  TEM.  Java  is  more  powerful  than  VBA  and 
would  provide  the  ability  to  be  more  creative  with  user  forms  and  other  customer  centric 
capabilities.  Three  drawbacks  are  inherent  in  this  method.  First,  not  all  government 
computers  are  Java  enabled  or  users  are  not  allowed  to  use  all  the  functions  available 
with  Java.  The  second  drawback  was  that  there  appeared  to  be  a  long  learning  curve  for 
using  Java.  This  long  learning  curve  impacts  two  individuals,  the  author  and  the  ultimate 
end  user.  I  did  not  have  the  available  time  to  learn  this  new  computer  programming 
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language  and  the  average  tanker  mission  planner  would  also  not  have  the  resourees 
available  to  learn  a  new  eomputer  programming  language  to  make  any  additions  or 
eorreetions  that  the  end  user  will  want  to  make.  The  third  drawbaek  is  the  inherent 
problems  that  arise  when  any  two  programs  are  merged  to  ereate  one  tool.  Potential 
eompatibility  issues  are  to  be  avoided  whenever  possible  if  there  is  an  effeetive 
alternative  available. 

Another  method  eonsidered  was  to  begin  from  serateh  and  ereate  an  entirely  new 
TEM  built  to  handle  multiple  tankers.  This  method  is  attractive  because  a  programmer  is 
able  to  create  a  basic  framework  that  is  capable  of  handling  the  multiple  tanker 
requirements.  Code,  variable  names,  user  forms,  reports  and  formula  can  be  developed 
simply  and  efficiently.  An  original  model  avoids  the  problems  of  deciphering  what  a 
previous  programmer  meant  in  writing  code  and  does  not  hinder  or  constrain  the 
alternatives  available  to  programming.  There  are  many  ways  to  code,  structure  and 
formulate  a  problem/program  and  beginning  from  scratch  enables  the  programmer  to 
exploit  the  best  possible  alternative. 

The  final  method  was  considered  the  best  and  was  implemented  in  this  GRP. 
Modifying  the  original  TEM  using  only  Excel  VBA  was  chosen  for  three  reasons.  Eirst, 
given  limited  resources  one  should  not  create  a  new  program  if  a  current  program  is 
working  and  meeting  all  the  needs  of  the  user.  The  original  TEM  was  thoroughly  tested 
and  validated  to  be  an  effective  tool  in  meeting  the  requirements,  therefore  there  appeared 
to  be  little  reason  to  recreate  an  entirely  new  program.  Secondly,  after  reviewing  the 


11 


Tanker  Employment  Model  (TEM)  it  was  believed  that  the  model  could  be  expanded  to 
provide  a  multiple  tanker  capacity  and  enhanced  to  provide  a  method  to  select  the  best 
tanker.  The  final  reason  for  modifying  the  TEM  was  that  it  was  based  on  a  well  known 
and  widely  used  and  available  program,  Excel  VBA.  This  common  programming 
language  and  program  ensures  that  future  modification  and  corrections  can  easily  be 
made  by  future  tanker  planners  or  other  students  at  the  Air  Eorce  Institute  of  Technology 
or  other  institutes. 

3,4  Formula  Construction 

1 .  The  formulas  used  in  the  basic  Tanker  Employment  Model  are  located  in  Maj. 
Margaret  M.  Romero’s  thesis  “Algebra  of  Tankers”  at  the  Air  Eorce  Institute  of 
Technology.  This  thesis  was  completed  in  March  2006. 

2.  Below  is  the  formula  used  to  calculate  the  number  of  missions  required  when 
using  multiple  tankers. 

ES  ojf  load  requiredm 
number  of  tanker  missions  =  - 

EE  off  load  availabletn 

t=\  n=\ 

r  =  receiver  type 
t  =  tanker  type 
n  =  number  of  aircraft 
r,  t,  n  =  integers 
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3,5  Tanker  Employment  Model  Modifications 

The  main  user  form  of  the  TEM,  the  Tanker  Employment  Caleulations  sheet 
provides  the  eapability  to  eompare  of  three  tanker  groups  simultaneously.  Previously 
only  one  tanker  from  one  base  was  eonsidered  in  all  the  tanker  employment  caleulations. 
Now  three  different  tankers  groups,  with  different  numbers  of  tanker  aircraft  coming 
from  three  different  bases  can  simultaneously  be  evaluated  to  choose  the  best  tanker 
group  for  two  different  mission  types.  This  is  a  significant  enhancement  that  provides  the 
user  with  an  increased  capability  in  evaluating  the  multiple  tanker  types  available  for  a 
tanker  employment  mission.  The  below  screen  capture  of  the  main  sheet  is  provided  to 
enable  better  understanding. 
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Figure  1.  Tanker  Employment  Model  Main  Sheet 
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The  offload  available  data  bloeks  are  pulled  from  another  sheet  when  the  user 
elieks  on  the  “Input  Data  for  Offload  Available  (2)”  button.  This  eaptures  data  that  was 
calculated  in  another  screen  and  which  will  be  described  after  this  section.  The  user  then 
manually  inputs  data  into  the  “Aircraft  Avail”  blocks  as  currently  experienced.  This  data 
is  used  with  the  “Offload  Avail”  block  to  calculate  the  number  of  aircraft  sorties  needed 
to  fulfill  one  of  two  mission  types.  If  the  best  tanker  group  does  not  have  enough  tankers 
available  to  meet  the  “Minimum  Offload  Req”  block  the  TEM  will  automatically  choose 
the  second  best  until  the  second  best  tanker  group  has  no  aircraft  available.  If  the  third 
best  tanker  group  fails  to  meet  the  requirement  the  TEM  will  display  that  the  current  asset 
mix  is  unable  to  meet  the  required  minimum  offload  required. 

3,6  Research  Question  4:  What  is  the  best  technique  to  assign  tanker  groups  to 
offload  required  for  receivers? 

One  technique  to  assign  tanker  groups  to  offload  required  for  receivers  is  to  write 
computer  programming  code.  This  technique  would  result  in  an  efficient  method  in  using 
VBA  and  the  time  required  for  a  programmer  to  modify  this  code  would  be  minimal. 

The  major  drawback  to  this  method  is  that  any  user  in  the  future  would  need  to  know 
computer  programming  in  order  to  modify  or  correct  the  TEM. 

The  best  technique  to  assign  tankers  groups  to  offload  required  for  receivers  for 
the  TEM  is  to  use  the  “IE”  “Then”  capability  of  VBA  to  choose  the  best  tanker  groups. 
The  method  of  using  “IF”  “Then”  statements  is  more  commonly  known  and  thus  can  be 
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easier  understood  by  future  users.  Below  is  a  simple  algorithm  for  ehoosing  the  best 
tanker  mix  when  minimizing  tankers: 


1.  Read  all  tankers’  available  fuel  quantity. 

2.  Read  all  tankers’  aireraft  availability  eount. 

3.  Read  offload  required  quantity. 

4.  Chose  tanker  with  greatest  fuel  availability. 

5.  Are  there  tankers  of  this  type  available  to  support  the  mission? 

a.  If  yes,  then  reduee  offload  required  by  offload  available  for  this 
tanker  and  repeat  step  2  until  mission  eompleted. 

b.  If  no,  repeat  step  I  with  the  remaining  tankers. 

6.  If  no  tankers  available  notify  user  that  they  are  unable  to  meet  mission 
requirements  with  the  eurrent  assets. 

The  algorithm  to  maximize  “booms”  is  similar  to  the  algorithm  to  minimize 
tankers  and  is  presented  below: 

1.  Read  all  tankers’  available  fuel  quantity. 

2.  Read  all  tankers’  aireraft  availability  eount. 

3.  Read  offload  required  quantity. 

4.  Chose  tanker  with  smallest  fuel  availability. 

5.  Are  there  tankers  of  this  type  available  to  support  the  mission? 

a.  If  yes,  then  reduee  offload  required  by  offload  available  for  this 
tanker  and  repeat  step  2  until  mission  eompleted. 

b.  If  no,  repeat  step  I  with  the  remaining  tankers. 
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6. 


If  no  tankers  available  notify  user  that  they  are  unable  to  meet 


mission  requirements  with  the  eurrent  assets. 

3.7  Input  Data  for  Available  Fuel 

Like  the  other  ten  user  input  forms  and  assoeiated  eode  the  “Input  Data  for 
Available  Fuel”  user  form  is  modified  to  aeeommodate  two  additional  tanker  groups.  No 
new  formulas  are  needed  but  all  the  eode  had  to  be  understood  and  modified  to  provide 
the  ability  to  use  multiple  tanker  groups.  The  form  and  the  more  interesting  part  of  the 
eode  to  modify  this  form  are  ineluded  below. 
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Figure  2.  Input  Data  for  Available  Fuel 
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Maj.  Romero’s  method  to  calculate  “Fuel  Available  for  Offload”  was  expanded  to 


three  tankers.  This  involved  Excel  VBA  code  changes  and  a  new  user  form 
configuration.  The  flow  chart  for  this  method  is  below. 


Figure  3.  Flow  chart  of  fuel  available  calculatiou 


3,8  Visual  Basic  with  Applications  (VBA) 

Visual  Basic  with  Applications  (VBA)  is  Microsoft’s  common  scripting  language 
used  in  a  variety  of  Microsoft  Office  applications,  as  well  other  applications  from  other 
vendors.  One  feature  of  VBA  is  the  ability  to  create  user  forms  -  custom  dialog  boxes 
which  allow  for  easy  data  entry.  (Romero,  2006) 

Three  reasons  were  instrumental  in  selecting  to  use  VBA  in  Excel  to  develop  the 
tanker  employment  model.  First,  AMC  desired  an  easy  to  use  tool  (as  the  current  tool. 
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CMARPS  is  widely  known  for  being  diffieult  to  learn  and  use).  Seeondly,  Exeel  is  one 
of  the  standard  software  applieations  in  many  offiees;  so  many  Air  Foree  members  have 
some  familiarity  with  the  Exeel  platform.  East,  many  of  the  tanker  tools  reeently 
developed  were  also  Exeel  based  projeets  eoded  in  VBA.  (Romero,  2006) 

The  multiple  tankers  eapability  and  other  modifieations  to  the  original  model 
were  made  using  Exeel  2007  VBA. 
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IV.  Results  and  Analysis 


4.1  Introduction 

The  Tanker  Employment  Model  provides  the  ability  to  use  multiple  tankers  in  the 
calculations.  This  modification  also  enables  the  ability  to  do  simple  multiple  base 
comparisons.  The  model  calculates  the  number  and  type  of  tanker  needed  to  meet  a 
required  user  inputted  mission  by  maximizing  the  number  of  booms  available  or  by 
minimizing  the  number  of  tanker  aircraft  used. 


4.2  Model  Verification 

The  New  Tanker  Employment  Model  and  the  original  Tanker  Employment  Model 
provide  the  same  output  for  one  tanker  when  the  inputs  are  the  same.  This  verifies  that 
the  original  capabilities  were  not  lost  in  the  modification.  The  below  scenarios  with 
TEM  results  and  manual  calculation  results  tested  the  multiple  tanker  TEM  calculations. 

Table  2.  Verification  with  multiple  scenarios 


Scenario  1:  Minimize  Tankers,  Offload  Required  =  10001,  Aircraft  Avail  by  type  =  5 


Tanker  Type 

Offload 

Aircraft  Used 

Aircraft  Used 

Order  Chosen 

Available 

by  TEM 

by  Manual  Calc 

TEM/Manual 

1 

1000 

0 

0 

3 

2 

1100 

4 

4 

2 

3 

1200 

5 

5 

1 
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Scenario  2:  Maximize  Booms,  Offload  Required  =  10001,  Aireraft  Avail  by  type  =  5 


Tanker  Type 

Offload 

Aircraft  Used 

Aircraft  Used 

Order  Chosen 

Available 

byTEM 

by  Manual  Calc 

TEM/Manual 

1 

1000 

5 

5 

1 

2 

1100 

5 

5 

2 

3 

1200 

0 

0 

3 

Scenario  3:  Minimize  Tankers,  Offload  Required  = 

10001,  Aireraft  Avail  by  type  =  5 

Tanker  Type 

Offload 

Aircraft  Used 

Aircraft  Used 

Order  Chosen 

Available 

byTEM 

by  Manual  Calc 

TEM/Manual 

1 

1100 

4 

4 

2 

2 

1200 

5 

5 

1 

3 

1000 

0 

0 

3 

Seenario  4;  Maximize  Booms,  Offload  Required  = 

10001,  Aireraft  Avail  by  type  =  5 

Tanker  Type 

Offload 

Aircraft  Used 

Aircraft  Used 

Order  Chosen 

Available 

byTEM 

by  Manual  Calc 

TEM/Manual 

1 

1100 

5 

5 

2 

2 

1200 

0 

0 

3 

3 

1000 

5 

5 

1 
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Scenario  5;  Minimize  Tankers,  Offload  Required  =  10001,  Aireraft  Avail  by  type  =  4 


Tanker  Type 

Offload 

Aircraft  Used 

Aircraft  Used 

Order  Chosen 

Available 

byTEM 

by  Manual  Calc 

TEM/Manual 

1 

1000 

1 

1 

3 

2 

1100 

4 

4 

2 

3 

1200 

4 

4 

1 

Scenario  6:  Maximize  Booms,  Offload  Required  =  10001,  Aireraft  Avail  by  type  =  4 


Tanker  Type 

Offload 

Aircraft  Used 

Aircraft  Used 

Order  Chosen 

Available 

byTEM 

by  Manual  Calc 

TEM/Manual 

1 

1000 

4 

4 

1 

2 

1100 

4 

4 

2 

3 

1200 

1 

1 

3 

Seenario  7;  Minimize  Tankers,  Offload  Required  = 

10001,  Aireraft  Avail  by  type  =  4 

Tanker  Type 

Offload 

Aircraft  Used 

Aircraft  Used 

Order  Chosen 

Available 

byTEM 

by  Manual  Calc 

TEM/Manual 

1 

1200 

4 

4 

1 

2 

1000 

1 

1 

3 

3 

1100 

4 

4 

2 
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Scenario  8:  Maximize  Booms,  Offload  Required  =  10001,  Aireraft  Avail  by  type  =  4 


Tanker  Type 

Offload 

Aircraft  Used 

Aircraft  Used 

Order  Chosen 

Available 

by  TEM 

by  Manual  Calc 

TEM/Manual 

1 

1200 

1 

1 

3 

2 

1000 

4 

4 

1 

3 

1100 

4 

4 

2 

Scenario  9:  Minimize  Tankers,  Offload  Required  = 

10001,  Aireraft  Avail  by  type  =  4 

Tanker  Type 

Offload 

Aircraft  Used 

Aircraft  Used 

Order  Chosen 

Available 

by  TEM 

by  Manual  Calc 

TEM/Manual 

1 

1100 

4 

4 

2 

2 

1200 

4 

4 

1 

3 

1000 

1 

1 

3 

Seenario  10;  Maximize  Booms,  Offload  Required  = 

10001,  Aireraft  Avail  by  type  =  4 

Tanker  Type 

Offload 

Aircraft  Used 

Aircraft  Used 

Order  Chosen 

Available 

by  TEM 

by  Manual  Calc 

TEM/Manual 

1 

1100 

4 

4 

2 

2 

1200 

1 

1 

3 

3 

1000 

4 

4 

1 

The  above  seenarios  were  developed  to  test  eaeh  possible  order  of  seleetion  of  the 
three  tanker  choiees.  The  TEM  and  manual  output  were  the  same  for  the  order  of  tanker 
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selection  and  the  number  of  each  tanker.  This  verifies  that  the  model  is  working  as 
designed. 

4.6  Conclusion 

The  new  Tanker  Employment  Model  provides  the  ability  to  use  multiple  tankers 
while  calculating  mission  requirements.  This  capability  provides  a  more  realistic 
estimate  of  current  and  future  tanker  operations. 

4.6  Limitations 

The  new  model  only  gives  the  user  the  ability  to  maximize  or  minimize  the 
number  of  tankers  used  on  a  mission.  The  decision  of  which  tanker  to  choose  first  does 
not  take  into  consideration  fuel  used,  time  required  for  mission,  bases  available  or 
aircrew  available.  The  sole  criterion  used  is  fuel  available  at  refueling  point. 
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V.  Conclusions  and  Recommendations 


5.1  Conclusions  and  Contributions 

This  chapter  discusses  conelusions  and  eontribution  produeed  by  this  researeh  and 
suggestions  for  future  researeh. 

Choosing  a  GRP  topie  that  builds  on  the  work  of  another  student’s  work  is  a  good 
idea  beeause  it  reduees  the  time  needed  to  seareh  for  a  topic,  enables  past  researeh  to 
eontinue  and  demonstrates  the  value  of  teamwork. 

Modifying  a  program  developed  by  another  user  is  made  easier  when  the 
developer  makes  detailed  notes  on  how  and  why  a  proeedure  is  executed.  A  well 
doeumented  and  organized  model/program  saves  future  programmers  signifieant  time 
and  energy  in  modifying  the  program  in  the  future. 

This  GRP  has  demonstrated  that  a  basie  model  ean  be  expanded  into  a  more 
robust  model.  Maj.  Romero’s  deeision  to  use  Visual  Basie  for  Applieations  (VBA) 
within  Exeel  was  based  on  that  it  would  be  portable  within  the  Air  Foree.  VBA  is  a 
powerful  tool  that  should  be  taught  to  more  offieers  in  DoD.  It  is  a  tool  that  will  be  used 
often  in  the  future  by  military  personnel  who  desire  to  build,  optimize  and  improve  useful 
programs. 

The  author  had  not  used  VBA  before  this  GRP.  It  was  a  tedious  proeess  to  learn 
how  to  operate  and  program  VBA.  It  would  have  been  niee  to  take  a  basie  VBA  course 
to  learn  the  fundamentals  of  the  programming  language.  The  user  help  menu  was  of 
some  value,  but  information  was  often  needed.  There  were  several  instanees  when  the 
program  did  not  display  the  correet  “answer”  even  though  the  logie  was  sound;  this  was 
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often  due  to  a  wrong  variable  designation.  This  was  frustrating  and  time  eonsuming 
beeause  my  logie  was  eorreet,  but  the  VBA  format  was  not  eorreet. 

One  limitation  and  strength  of  VBA  is  its  relianee  on  “preprogrammed” 
eommands  and  forms.  This  makes  “programming”  easier,  but  it  limits  your  ereativity  in 
designing  forms  and  unique  proeedures. 

This  new  tool  provides  greater  fidelity  into  the  tanker  employment  mission.  The 
model  now  has  the  ability  to  model  multiple  tankers  at  one  time.  The  method  used  to 
ehoose  between  multiple  alternatives  ean  be  used  in  other  programs  and  deeisions  in  the 
future. 

5,2  Recommendations  for  Future  Research 

The  Tanker  Employment  Model  eould  be  expanded  to  eonsider  multiple  reeeiver 
groups  and  inereased  maintenanee  eapabilities.  Another  possible  expansion  would  be  to 
modify  the  model  to  choose  the  best  base  of  three  base  choices.  A  final  area  of  possible 
research  would  be  to  develop  a  better  and  more  detailed  method  of  selecting  a  tanker. 

Keeping  the  TEM  model  simple  and  uncluttered  will  be  a  challenge  with  any  of 
the  recommended  research  areas.  If  the  model  becomes  too  complicated  it  will  be 
shunned  by  tanker  planners.  Another  challenge  in  developing  a  single  area  in  TEM  is 
that  all  areas  are  linked  in  some  way  and  modifying  one  area  of  TEM  will  often  lead  to 
the  need  to  modify  all  areas. 
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Appendix  A, 


Option  Explicit 
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Dim  ws  As  Worksheet,  BoxCheek  As  Integer,  TempOffloadReq  As  String,  Result  As 
Integer 

Private  Sub  BoomMissionReqbox_Change() 

End  Sub 

Private  Sub  Aircraftet_Change() 

End  Sub 

Private  Sub  aireraftusedBox3b_Change() 

End  Sub 

Private  Sub  ealemaxtankers_Cbck() 

Dim  maxbooms  As  Integer,  missionsreql  As  Curreney,  aireraftusedl  As  Curreney,  _ 
missionsreq2  As  Curreney,  aircraftused2  As  Curreney,  _ 
missionsreqS  As  Curreney,  aireraftusedS  As  Currency 

'resets  values 

aircraftusedBoxlf  =  0 
aircraftusedBox2f  =  0 
aircraftusedBoxSf  =  0 
missionsreql  =  0 
missionsreq2  =  0 
missionsreq2  =  0 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 
missionsreq2  =  OffloadReqBox  /  OffloadAvailBox2 
missionsreqS  =  OffloadReqBox  /  OffloadAvailBoxS 


'Calculates  Minimum  Tankers  needed  to  meet  fuel  offload  required 


If  missionsreql  >  missionsreq2  Then  '  1st  phase 
If  missionsreql  >  missionsreqS  Then 
'  aircraftcount  calculaton 

If  missionsreql  <  aircraft  1  count  Then 
aircraftusedBoxlf  =  missionsreql 

Else:  aircraftusedBoxlf  =  aircraft  1  count 
End  If 
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OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxlf  *  OffloadAvailBox) 

missionsreq2  =  OffloadReqBox  /  OffloadAvailBox! 
missionsreqS  =  OffloadReqBox  /  OffloadAvailBoxS 

If  missionsreq!  >  missionsreqS  Then 
If  missionsreq!  <  aircraft2count  Then 
aircraftusedBox2f  =  missionsreq! 

Else:  aircraftusedBoxlf  =  aircraftlcount 
End  If 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxlf  * 
OffloadAvailBox!) 

missionsreqS  =  OffloadReqBox  /  OffloadAvailBoxS 

If  missionsreqS  <  aircrafts  count  Then 
aircraftusedBoxSf  =  missionsreqS 
OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxSf  * 
OffloadAvailBoxS) 

Else:  aircraftusedBoxSf  =  aircrafts  count 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxSf  * 
OffloadAvailBoxS) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 

Elself  missionsreqS  >  missionsreql  Then 

If  missionsreqS  <  aircrafts  count  Then 
aircraftusedBoxSf  =  missionsreqS 

Else:  aircraftusedBoxSf  =  aircrafts  count 
End  If 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxSf* 
OffloadAvailBoxS) 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox! 

If  missionsreql  <  aircraftlcount  Then 
aircraftusedBoxlf  =  missionsreql 
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OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBox2f  * 
OffloadAvailBox2) 

Else;  aircraftusedBox2f  =  aircraft2count 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBox2f  * 
OffloadAvailBox2) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 

End  If  'eheek  this  END  IE 

Elself  missionsreqS  >  missionsreql  Then 

'  airerafteount  ealeulation 
If  missionsreqS  <  aireraftSeount  Then 
aireraftusedBoxSf  =  missionsreqS 

Else:  aireraftusedBoxSf  =  aireraftSeount 
End  If 


OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxSf  *  OffloadAvailBoxS) 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 
missionsreq2  =  OffloadReqBox  /  OffloadAvailBox2 

If  missionsreql  >  missionsreq2  Then 
If  missionsreql  <  aireraftleount  Then 
aireraftusedBoxlf  =  missionsreql 

Else:  aireraftusedBoxlf  =  aireraftleount 
End  If 

OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxlf*  OffloadAvailBox) 

missionsreq2  =  OffloadReqBox  /  OffloadAvailBox2 

If  missionsreq2  <  airoraft2oount  Then 
aireraftusedBox2f  =  missionsreq2 
OffloadReqBox  =  OffloadReqBox  -  (airoraftusedBox2f  * 
OffloadAvailBox2) 

Else:  aircraftusedBox2f  =  aircraft2eount 

OffloadReqBox  =  OffloadReqBox  -  (airoraftusedBox2f  * 
OffloadAvailBox2) 
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MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 
End  If 
End  If 

Elself  missionsreq2  >  missionsreql  Then  '2nd  phase 
If  missionsreq2  >  missionsreqS  Then 
'  airerafteount  ealeulaton 

If  missionsreq2  <  aireraft2eount  Then 
aireraftusedBox2f  =  missionsreq2 

Else;  aireraftusedBox2f  =  aireraft2eount 
End  If 


OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBox2f  *  OffloadAvailBox2) 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 
missionsreqS  =  OffloadReqBox  /  OffloadAvailBoxS 

If  missionsreql  >  missionsreqS  Then 
If  missionsreql  <  aireraftleount  Then 
aireraftusedBoxlf  =  missionsreql 

Else:  aireraftusedBoxlf  =  aireraftleount 
End  If 

OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxlf*  OffloadAvailBox) 

missionsreqS  =  OffloadReqBox  /  OffloadAvailBoxS 

If  missionsreqS  <  aireraftSeount  Then 
aireraftusedBoxSf  =  missionsreqS 
OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxSf  * 
OffloadAvailBoxS) 

Else;  aireraftusedBoxSf  =  aireraftSeount 

OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxSf  * 
OffloadAvailBoxS) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 
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Elself  missionsreqS  >  missionsreql  Then 


If  missionsreqS  <  aircrafts  count  Then 
aircraftusedBoxSf  =  missionsreqS 

Else:  aircraftusedBoxSf  =  aircrafts  count 
End  If 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxSf* 
OffloadAvailBoxS) 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 

If  missionsreql  <  aircraft  1  count  Then 
aircraftusedBoxlf  =  missionsreql 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxlf  * 
OffloadAvailBox) 

Else:  aircraftusedBoxlf  =  aircraft  1  count 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxlf  * 
OffloadAvailBox) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 

End  If  'check  this  END  IE 

Elself  missionsreqS  >  missionsreql  Then 

'  aircraftcount  calculaton 
If  missionsreqS  <  aircrafts  count  Then 
aircraftusedBoxSf  =  missionsreqS 

Else:  aircraftusedBoxSf  =  aircrafts  count 
End  If 


OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxSf*  OffloadAvailBoxS) 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 
missionsreql  =  OffloadReqBox  /  OffloadAvailBoxl 

If  missionsreql  >  missionsreql  Then 
If  missionsreql  <  aircraftlcount  Then 
aircraftusedBoxlf  =  missionsreql 
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Else:  aircraftusedBox2f  =  aircraft2count 
End  If 


OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBox2f  * 
OffloadAvailBox2) 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 

If  missionsreql  <  aireraftleount  Then 
aireraftusedBoxIf  =  missionsreql 

OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxIf  * 
OffloadAvailBox) 

Else:  aireraftusedBoxIf  =  aireraftleount 

OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxIf  * 
OffloadAvailBox) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 


End  If 
End  If 
End  If 

End  Sub 

Private  Sub  ealcmintankers  ClickO 

Dim  maxbooms  As  Integer,  missionsreql  As  Curreney,  aireraftusedi  As  Curreney, 
missionsreq2  As  Curreney,  aireraftused2  As  Curreney,  _ 
missionsreqS  As  Curreney,  aireraftusedS  As  Currency 

'resets  values 

aircraftusedBoxlb  =  0 
aircraftusedBox2b  =  0 
aircraftusedBoxSb  =  0 
missionsreql  =  0 
missionsreq2  =  0 
missionsreq2  =  0 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 
missionsreq2  =  OffloadReqBox  /  OffloadAvailBox2 
missionsreqS  =  OffloadReqBox  /  OffloadAvailBoxS 
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'Calculates  Minimum  Tankers  needed  to  meet  fuel  offload  required 


If  missionsreql  <  missionsreq2  Then  '  1st  phase 
If  missionsreql  <  missionsreqS  Then 
'  aireraftcount  calculaton 

If  missionsreql  <  aircraft  1  count  Then 
aireraftusedBoxlb  =  missionsreql 

Else:  aireraftusedBoxlb  =  aircraft leount 
End  If 


OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxlb  *  OffloadAvailBox) 

missionsreq2  =  OffloadReqBox  /  OffloadAvailBox2 
missionsreqS  =  OffloadReqBox  /  OffloadAvailBoxS 

If  missionsreq2  <  missionsreqS  Then 
If  missionsreq2  <  aircraft2count  Then 
aireraftusedBox2b  =  missionsreq2 

Else:  aircraftusedBox2b  =  aireraft2count 
End  If 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBox2b  * 
OffloadAvailBox2) 

missionsreqS  =  OffloadReqBox  /  OffloadAvailBoxS 

If  missionsreqS  <  aircrafts  eount  Then 
aireraftusedBoxSb  =  missionsreqS 
OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxSb  * 
OffloadAvailBoxS) 

Else:  aireraftusedBoxSb  =  aircrafts eount 

OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxSb  * 
OffloadAvailBoxS) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 

Elself  missionsreqS  <  missionsreq2  Then 

If  missionsreqS  <  aircrafts  count  Then 
aireraftusedBoxSb  =  missionsreqS 
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Else:  aircraftusedBoxSb  =  aircrafts  count 
End  If 


OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxSb  * 
OffloadAvailBoxS) 

missionsreq2  =  OffloadReqBox  /  OffloadAvailBox2 

If  missionsreq2  <  aircraft2count  Then 
aircraftusedBox2b  =  missionsreq2 
OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBox2b  * 
OffloadAvailBox2) 

Else:  aircraftusedBox2b  =  aircraft2count 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBox2b  * 
OffloadAvailBox2) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 

End  If  'check  this  END  IE 

Elself  missionsreqS  <  missionsreql  Then 

'  aircraftcount  calculaton 
If  missionsreqS  <  aircrafts  count  Then 
aircraftusedBoxSb  =  missionsreqS 

Else:  aircraftusedBoxSb  =  aircrafts  count 
End  If 


OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxSb  *  OffloadAvailBoxS) 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 
missionsreq2  =  OffloadReqBox  /  OffloadAvailBox2 

If  missionsreql  <  missionsreq2  Then 
If  missionsreql  <  aircraft  1  count  Then 
aircraftusedBoxlb  =  missionsreql 

Else:  aircraftusedBoxlb  =  aircraft  1  count 
End  If 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxlb  *  OffloadAvailBox) 
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missionsreq2  =  OffloadReqBox  /  OffloadAvailBox2 


If  missionsreq2  <  aircraft2count  Then 
aircraftusedBox2b  =  missionsreq2 
OffloadReqBox  =  OffloadReqBox  -  (airoraftusedBox2b  * 
OffloadAvailBox2) 

Else;  aircraftusedBox2b  =  aircraft2eount 

OffloadReqBox  =  OffloadReqBox  -  (airoraftusedBox2b  * 
OffloadAvailBox2) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 
End  If 
End  If 

Elself  missionsreq2  <  missionsreql  Then  '2nd  phase 
If  missionsreq2  <  missionsreqS  Then 
'  aireraftcount  calculaton 

If  missionsreq2  <  aircraft2count  Then 
aircraftusedBox2b  =  missionsreq2 

Else:  aircraftusedBox2b  =  aircraft2count 
End  If 


OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBox2b  *  OffloadAvailBox2) 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 
missionsreqS  =  OffloadReqBox  /  OffloadAvailBoxS 

If  missionsreql  <  missionsreqS  Then 
If  missionsreql  <  aircraft  I  count  Then 
aircraftusedBoxIb  =  missionsreql 

Else:  aircraftusedBoxIb  =  aircraft  I  count 
End  If 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxIb  *  OffloadAvailBox) 

missionsreqS  =  OffloadReqBox  /  OffloadAvailBoxS 

If  missionsreqS  <  aircrafts  count  Then 
aircraftusedBoxSb  =  missionsreqS 
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OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxSb  * 
OffloadAvailBoxS) 

Else;  aircraftusedBoxSb  =  aircrafts  count 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxSb  * 
OffloadAvailBoxS) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 

Elself  missionsreqS  <  missionsreql  Then 

If  missionsreqS  <  aircrafts  count  Then 
aircraftusedBoxSb  =  missionsreqS 

Else:  aircraftusedBoxSb  =  aircrafts  count 
End  If 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxSb  * 
OffloadAvailBoxS) 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 

If  missionsreql  <  aircraft  1  count  Then 
aircraftusedBoxlb  =  missionsreql 
OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxlb  * 
OffloadAvailBox) 

Else:  aircraftusedBoxlb  =  aircraft  1  count 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxlb  * 
OffloadAvailBox) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 

End  If  'check  this  END  IE 

Elself  missionsreqS  <  missionsreql  Then 

'  aircraftcount  calculaton 
If  missionsreqS  <  aircrafts  count  Then 
aircraftusedBoxSb  =  missionsreqS 

Else:  aircraftusedBoxSb  =  aircrafts  count 
End  If 
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OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxSb  *  OffloadAvailBoxS) 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 
missionsreq2  =  OffloadReqBox  /  OffloadAvailBox! 

If  missionsreq!  <  missionsreql  Then 
If  missionsreq!  <  aircraft2count  Then 
aircraftusedBox2b  =  missionsreq! 

Else:  aircraftusedBox2b  =  aireraft2count 
End  If 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBox2b  * 
OffloadAvailBox!) 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 

If  missionsreql  <  aircraft  1  count  Then 
aircraftusedBoxlb  =  missionsreql 
OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxlb  * 
OffloadAvailBox) 

Else:  aircraftusedBoxlb  =  aircraft  1  count 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxlb  * 
OffloadAvailBox) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 

End  If 
End  If 
End  If 

End  Sub 


Private  Sub  CmdCalcAircraftInt_Click() 

'  Eirst  checks  to  ensure  user  has  entered  Cycle  Time,  required  for  calculations 
With  CycleTimeBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 
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MsgBox  "The  Cycle  Time  is  required  to  calculate  Sortie  Generation  Capablity  for 
aircraft,  "  _ 

&  "please  enter  a  nonnumeric  value." 

•SetFocus 
Exit  Sub 
End  If 

CycleTime  =  CycleTimeBox 
If  CycleTime  <  0  Then 

MsgBox  "The  Cycle  Time  is  required  to  calculate  Sortie  Generation  Capablity  for 
aircraft,  "  _ 

&  "please  enter  a  nonnegative  value." 

.SetEocus 
Exit  Sub 
End  If 
End  With 

With  CycleTimeBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "The  Cycle  Time  is  required  to  calculate  Sortie  Generation  Capablity  for 
aircraft,  "  _ 

&  "please  enter  a  nonnumeric  value." 

.SetEocus 
Exit  Sub 
End  If 

CycleTime!  =  CycleTimeBox! 

If  CycleTime!  <  0  Then 

MsgBox  "The  Cycle  Time  is  required  to  calculate  Sortie  Generation  Capablity  for 
aircraft,  "  _ 

&  "please  enter  a  nonnegative  value." 

.SetEocus 
Exit  Sub 
End  If 
End  With 

With  CycleTimeBox! 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "The  Cycle  Time  is  required  to  calculate  Sortie  Generation  Capablity  for 
aircraft,  "  _ 

&  "please  enter  a  nonnumeric  value." 

.SetEocus 
Exit  Sub 
End  If 

CycleTime!  =  CycleTimeBox! 

If  CycleTime!  <  0  Then 

MsgBox  "The  Cycle  Time  is  required  to  calculate  Sortie  Generation  Capablity  for 
aircraft,  "  _ 
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&  "please  enter  a  nonnegative  value." 

•SetFoeus 
Exit  Sub 
End  If 
End  With 

'  Calls  user  form  to  aireraft  assigned,  NMC  and  ealeulate  the  aireraft  generation  eapability 
InputAireraftlntData.  Show 
Aireraftlnt  =  RoundNear(AiroraftInt,  0.1) 

With  AireraftlntBox 

AireraftlntBox  =  Aireraftlnt 
End  With 

Aireraftlnt!  =  RoundNear(AireraftInt2,  0.1) 

With  AireraftlntBox! 

AireraftlntBox!  =  Aireraftlnt! 

End  With 

Aireraftlnt!  =  RoundNear( Aireraftlnt!,  0.1) 

With  AireraftlntBox! 

AireraftlntBox!  =  Aireraftlnt 
End  With 

End  Sub 


Private  Sub  CmdCaleAirerewInt_Cliek() 

'  Eirst  eheeks  to  ensure  user  has  entered  Round  Trip  Elying  Time,  required  for 
ealeulations 
With  RTETBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "The  Round  Trip  Elying  Time  is  required  for  Sortie  Generation 
Capablity  for  airerew,  "  _ 

&  "please  enter  a  nonnumerie  value." 

.SetEoeus 
Exit  Sub 
End  If 

RTET  =  RTETBox 
If  RTFT  <  0  Then 

MsgBox  "The  Round  Trip  Elying  Time  is  required  for  Sortie  Generation 
Capablity  for  airerew,  "  _ 

&  "please  enter  a  nonnegative  value." 

.SetEoeus 
Exit  Sub 
End  If 
End  With 

With  RTETBox! 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 
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MsgBox  "The  Round  Trip  Flying  Time  is  required  for  Sortie  Generation 
Capablity  for  airerew,  "  _ 

&  "please  enter  a  nonnumerie  value." 

•SetFocus 
Exit  Sub 
End  If 

RTET2  =  RTETBox2 
If  RTET2  <  0  Then 

MsgBox  "The  Round  Trip  Elying  Time  is  required  for  Sortie  Generation 
Capablity  for  airerew,  "  _ 

&  "please  enter  a  nonnegative  value." 

.SetEocus 
Exit  Sub 
End  If 
End  With 

With  RTETBoxS 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "The  Round  Trip  Elying  Time  is  required  for  Sortie  Generation 
Capablity  for  airerew,  "  _ 

&  "please  enter  a  nonnumeric  value." 

.SetEocus 
Exit  Sub 
End  If 

RTET3  =  RTETBoxS 
If  RTET  <  0  Then 

MsgBox  "The  Round  Trip  Elying  Time  is  required  for  Sortie  Generation 
Capablity  for  aircrew,  "  _ 

&  "please  enter  a  nonnegative  value." 

.SetEocus 
Exit  Sub 
End  If 
End  With 

'  Calls  user  form  to  aircrew  assigned,  those  not  available,  and  the  time  frame,  and 
'  calculates  the  aircraft  generation  capability 
InputAircrewIntData.Show 

Aircrewint  =  RoundNear(AircrewInt,  0.1) 

With  AircrewIntBox 

AircrewIntBox  =  Aircrewint 
End  With 

Aircrewlnt2  =  RoundNear(AircrewInt2,  O.I) 

With  AircrewIntBox2 

AircrewIntBox2  =  Aircrewlnt2 
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End  With 


AircrewIntS  =  RoundNear(AircrewInt3,  0.1) 
With  AircrewIntBoxS 

AircrewIntBoxS  =  AircrewIntS 
End  With 
End  Sub 


Private  Sub  CmdCalcAircrewInt2_Click() 

End  Sub 

Private  Sub  CmdCalcMaxPuelAvail_Click() 

Dim  Elowlnt  As  Integer,  PlowInt2  As  Integer,  ElowIntS  As  Integer 
'  Calls  Subroutine  to  check  inputs  and  ensure  users  inputs  assigned  to  a  variable 
BoxCheck  =  0 
Call  ChecklnputsMaxEuel 
If  BoxCheck  =  1  Then 
Exit  Sub 
End  If 

'Calculates  Elow  Interval  by  finding  the  minimum  of  that  aircraft,  aircrew  and  station 
intervals 

If  Aircraftint  <  AircrewInt  Then 
If  Aircraftint  <  BaseInt  Then 
Elowlnt  =  Aircraftint 
Else 

Elowlnt  =  BaseInt 
End  If 

Elself  AircrewInt  <  Aircraftint  Then 
If  AircrewInt  <  BaseInt  Then 
Elowlnt  =  AircrewInt 
Else 

Elowlnt  =  BaseInt 
End  If 

Elself  BaseInt  <  Aircraftint  Then 
If  BaseInt  <  AircrewInt  Then 
Elowlnt  =  BaseInt 
Else 

Elowlnt  =  AircrewInt 
End  If 
End  If 

'tanker2  Calculates  Elow  Interval  by  finding  the  minimum  of  that  aircraft,  aircrew  and 
station  intervals 

If  Aircraftlnt2  <  Aircrewlnt2  Then 
If  Aircraftlnt2  <  Baselnt2  Then 
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FlowInt2  =  Aircraftlnt2 
Else 

FlowInt2  =  Baselnt2 
End  If 

Elself  Aircrewlnt2  <  Aircraftlnt2  Then 
If  Airerewlnt2  <  Baselnt2  Then 

FlowInt2  =  Aircrewlnt2 
Else 

ElowInt2  =  Baselnt2 
End  If 

Elself  Baselnt2  <  Aircraftlnt2  Then 
If  Baselnt2  <  Aircrewlnt2  Then 

FlowInt2  =  Baselnt2 
Else 

ElowInt2  =  Airerewlnt2 
End  If 
End  If 

'tankerS  Calculates  Elow  Interval  by  finding  the  minimum  of  that  aircraft,  aircrew  and 
station  intervals 

If  AircraftIntS  <  AircrewIntS  Then 
If  AircraftIntS  <  BaseIntS  Then 

FlowIntS  =  AircraftIntS 
Else 

ElowIntS  =  BaseIntS 
End  If 

Elself  AircrewIntS  <  AircraftIntS  Then 
If  AircrewIntS  <  BaseIntS  Then 

FlowIntS  =  AircrewIntS 
Else 

ElowIntS  =  BaseIntS 
End  If 

Elself  BaseIntS  <  AircraftIntS  Then 
IfBaseIntS  <  AircrewIntS  Then 

FlowIntS  =  BaseIntS 
Else 

ElowIntS  =  AircrewIntS 
End  If 
End  If 

'  Calculates  the  Maximum  Euel  Available  and  enters  into  form  and  Data  Worksheet 
MaxEuelAvail  =  Elowint  *  OffioadAvail 
With  MaxEuelAvailBox 

MaxEuelAvailBox  =  MaxEuelAvail 
End  With 

'  tanker2  Calculates  the  Maximum  Euel  Available  and  enters  into  form  and  Data 
Worksheet 
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MaxFuelAvail2  =  FlowInt2  *  OffloadAvail2 
With  MaxFuelAvailBox2 

MaxFuelAvailBox2  =  MaxFuelAvail2 
End  With 

'  tankerS  Calculates  the  Maximum  Fuel  Available  and  enters  into  form  and  Data 
Worksheet 

MaxFuelAvaiB  =  FlowIntS  *  OffloadAvaiB 
With  MaxFuelAvailBoxS 

MaxFuelAvailBoxS  =  MaxFuelAvaiB 
End  With 
End  Sub 

Private  Sub  CmdCalcMissionReq_Click() 

'  Uses  data  from  Offload  Required  and  Offload  Available  to  caleulate  the  missions 
required 

'  Calls  Subroutine  to  eheck  inputs  and  ensure  users  inputs  assigned  to  a  variable 
BoxCheck  =  0 

Call  CheckInputsMissionReq 
If  BoxCheck  =  1  Then 
Exit  Sub 
End  If 

'  Calculates  Mission  Required  and  enters  the  required,  available  and  missions  into  the 
form  and  onto  the  data  sheet 
If  OffloadAvail  =  0  Then 

MsgBox  "Can  not  calculate  the  number  of  missions  required  if  the  offload  available 
is  0.  Please  enter  a  number." 

Exit  Sub 
End  If 

MissionReq  =  Applieation.RoundUp(OffloadReq  /  OffloadAvailTTTBox,  0) 

With  MissionReqBox 

MissionReqBox  =  MissionReq 
End  With 

'  ThisWorkbook.Worksheets("Tanker  Employment").Aetivate  **Used  for  eheek, 
delete  later** 

End  Sub 

Private  Sub  CmdCaleOffloadAvail_Click() 

'  Calls  user  form  to  enter  Distance,  TAS,Puel  Plow,  Total  Puel,  Puel  Reserve 

'  The  form  then  eaculates  and  sets  the  offload  available  in  the  main  form  and  on  the  data 

sheet 

InputPuelAvailData.Show 
With  OffloadAvailBox 

OffloadAvailBox  =  OffloadAvail 
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End  With 


With  OffloadAvailBox2 

OffloadAvailBox2  =  OffloadAvail2 
End  With 

With  OffloadAvailBoxS 

OffloadAvailBoxS  =  OffloadAvaiB 
End  With 

End  Sub 


Private  Sub  CmdCalcOffloadReq_Click() 

'  Calls  user  form  to  enter  Distance,  TAS,Euel  Elow,  Total  Euel,  Euel  Reserve 
'  The  form  then  caculates  and  sets  the  offload  required  in  the  form  and  on  the  data  sheet 
InputEuelReqData.Show 
With  OffloadReqBox 

OffloadReqBox  =  OffloadReq 
End  With 

With  OrigninalOffloadReqBox 

OrigninalOffloadReqBox  =  OffloadReq 
End  With 

'  Mini  proceedure  to  automatically  calculate  mission  required,  ***not  working  yet*** 

'  Once  Offload  required  is  entered,  will  check  to  see  if  Offload  Available  has  been 
entered 

'  If  both  have  been  entered,  will  call  the  calculate  missions  required 
'  If  IsNumeric(OffloadAvail)  Then 
'  MissionReq  =  OffloadReq  /  OffloadAvail 

'  With  MissionReqBox 

'  MissionReqBox  =  MissionReq 
'  End  With 

'  End  If 
End  Sub 

Private  Sub  CmdCalcRTPT_Click() 

'  Prompt  to  see  if  user  would  like  to  enter  general  estimate  for  round  trip  flying  time 
'  Otherwises,  sends  user  to  form  to  enter  data  for  round  trip  flying  time 
Result  =  0 

If  TrackRTETEnter  =  I  Then 

Result  =  MsgBox("Would  you  like  to  use  the  Round  Trip  Elying  Time  data  entered 
from  "  _ 

&  "calculating  the  offload  fuel  available  from  above?",  _ 
vbYesNo,  "Use  Previous  Data  for  RTET?") 

If  Result  =  6  Then 
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RTFT  =  RoundNear(RTFT,  0.1) 

RTFTBox  =  RTFT 

RTFT2  =  RoundNear(RTFT2,  0.1) 

RTFTBox2  =  RTFT2 

RTFT3  =  RoundNear(RTFT3,  0.1) 

RTFTBox3  =  RTFT3 
Exit  Sub 
End  If 
End  If 

'  Calls  user  form  to  enter  Distanee,  TAS,  and  Time  at  Refuel  Point  for  eaeh  leg  of  trip 

'  The  form  then  eaculates  and  sets  the  Round  Trip  Elying  Time 
InputEirstRTETData.Show 
RTET  =  RoundNear(RTFT,  0.1) 

With  RTETBox 
RTETBox  =  RTFT 
End  With 

RTET2  =  RoundNear(RTET2,  0.1) 

With  RTETBox2 
RTETBox2  =  RTET2 
End  With 

RTET3  =  RoundNear(RTET3,  0.1) 

With  RTETBox3 
RTETBox3  =  RTFT3 
End  With 

End  Sub 


Private  Sub  CmdCalcRTFT3_Cliek() 

End  Sub 

Private  Sub  CmdCalcStationInt_Cliek() 

'  Eirst  ehecks  to  ensure  user  has  entered  Total  Ground  Time,  Offload  required 
'  And  Tanker  Euel  Used  (in  Offload  Availalble  form)  for  ealculations 
With  TotalGroundTimeBox 

If  .Value  =  ""  Or  Not  lsNumeric(. Value)  Then 

MsgBox  "The  Total  Ground  Time  is  require  to  caleulate  the  Sortie  Generation 
using  base  inputs,"  _ 

&  "  please  enter  a  nonnumeric  value." 

.SetEocus 
Exit  Sub 
End  If 
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TotalGroundTime  =  TotalGroundTimeBox 
If  RTFT  <  0  Then 

MsgBox  "The  Total  Ground  Time  is  require  to  ealeulate  Sortie  Generation  using 
base  inputs,"  _ 

&  "  please  enter  a  nonnegative  value." 

•SetFoeus 
Exit  Sub 
End  If 
End  With 

With  OffloadReqBox 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "The  Offload  Required  by  Reeeivers  is  require  to  ealeulate  the  Sortie  " 
&  "Generation  using  base  inputs,  please  enter  a  nonnumerie  value." 

.SetEoeus 
Exit  Sub 
End  If 

TotalGroundTime  =  TotalGroundTimeBox 
If  RTET  <  0  Then 

MsgBox  "The  Offload  Required  by  Reeeivers  is  require  to  ealeulate  Sortie 
Generation "  _ 

&  "using  base  inputs,  please  enter  a  nonnegative  value." 

.SetEoeus 
Exit  Sub 
End  If 
End  With 

'  tanker2  Eirst  eheeks  to  ensure  user  has  entered  Total  Ground  Time,  Offload  required 
'  And  Tanker  Euel  Used  (in  Offload  Availalble  form)  for  ealeulations 
With  TotalGroundTimeBox! 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "The  Total  Ground  Time  is  require  to  ealeulate  the  Sortie  Generation 
using  base  inputs,"  _ 

&  "  please  enter  a  nonnumerie  value." 

.SetEoeus 
Exit  Sub 
End  If 

TotalGroundTime!  =  TotalGroundTimeBox! 

If  RTET2  <  0  Then 

MsgBox  "The  Total  Ground  Time  is  require  to  ealeulate  Sortie  Generation  using 
base  inputs,"  _ 

&  "  please  enter  a  nonnegative  value." 

.SetEoeus 
Exit  Sub 
End  If 
End  With 

With  OffloadReqBox 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 
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MsgBox  "The  Offload  Required  by  Reeeivers  is  require  to  calculate  the  Sortie  " 
&  "Generation  using  base  inputs,  please  enter  a  nonnumeric  value." 

•SetFocus 
Exit  Sub 
End  If 

TotalGroundTime2  =  TotalGroundTimeBox2 
If  RTET2  <  0  Then 

MsgBox  "The  Offload  Required  by  Receivers  is  require  to  calculate  Sortie 
Generation "  _ 

&  "using  base  inputs,  please  enter  a  nonnegative  value." 

.SetEocus 
Exit  Sub 
End  If 
End  With 

'  tankerS  Eirst  checks  to  ensure  user  has  entered  Total  Ground  Time,  Offload  required 
'  And  Tanker  Euel  Used  (in  Offload  Availalble  form)  for  calculations 
With  TotalGroundTimeBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "The  Total  Ground  Time  is  require  to  calculate  the  Sortie  Generation 
using  base  inputs,"  _ 

&  "  please  enter  a  nonnumeric  value." 

.SetEocus 
Exit  Sub 
End  If 

TotalGroundTimeS  =  TotalGroundTimeBoxS 
If  RTET3  <  0  Then 

MsgBox  "The  Total  Ground  Time  is  require  to  calculate  Sortie  Generation  using 
base  inputs,"  _ 

&  "  please  enter  a  nonnegative  value." 

.SetEocus 
Exit  Sub 
End  If 
End  With 

With  OffloadReqBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "The  Offload  Required  by  Receivers  is  require  to  calculate  the  Sortie  " 
&  "Generation  using  base  inputs,  please  enter  a  nonnumeric  value." 

.SetEocus 
Exit  Sub 
End  If 

TotalGroundTimeS  =  TotalGroundTimeBoxS 
If  RTET3  <  0  Then 

MsgBox  "The  Offload  Required  by  Receivers  is  require  to  calculate  Sortie 
Generation  "  _ 

&  "using  base  inputs,  please  enter  a  nonnegative  value." 
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•SetFocus 
Exit  Sub 
End  If 
End  With 

'  Calls  form  to  enter  the  base  generation  eapability 
InputBaseIntData.  Show 

Baseint  =  RoundNear(BaseInt,  0.1) 

With  BaseIntBox 

BaseIntBox  =  Baseint 
End  With 

Baselnt2  =  RoundNear(BaseInt2,  0.1) 

With  BaseIntBox2 

BaseIntBox2  =  Baselnt2 
End  With 

BaseIntS  =  RoundNear(BaseInt3,  0.1) 

With  BaseIntBoxS 
BaseIntBoxS  =  BaseIntS 
End  With 
End  Sub 


Private  Sub  CmdCaneel_Click() 

ThisWorkbook.Worksheets("Tanker  Employment").  Aetivate 
Unload  Me 
End  Sub 

Private  Sub  CmdCyeleTime_Cliek() 

'  Uses  data  from  RTET  and  Total  Ground  Time  information  to  ealculate  the  Cyele  Time 
'  Eirst  cheeks  to  ensure  data  for  RTET  and  Total  Ground  Time  has  been  entered 
With  RTETBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Round  Trip  Plying  Time  first." 
.SetPocus 
Exit  Sub 
End  If 

RTET  =  RTETBox 
If  RTET  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Round  Trip  Plying  Time." 
.SetPocus 
Exit  Sub 
End  If 
End  With 

With  TotalGroundTimeBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 
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MsgBox  "Please  enter  a  numerie  value  for  the  Total  Ground  Time  first." 
•SetFoeus 
Exit  Sub 
End  If 

TotalGroundTime  =  TotalGroundTimeBox 
If  TotalGroundTime  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Total  Ground  Time." 
.SetEoeus 
Exit  Sub 
End  If 
End  With 

With  RTETBox2 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Round  Trip  Plying  Time  first." 
.SetEoeus 
Exit  Sub 
End  If 

RTPT2  =  RTPTBox2 
If  RTPT2  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Round  Trip  Plying  Time." 
.SetEoeus 
Exit  Sub 
End  If 
End  With 

With  TotalGroundTimeBox2 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Total  Ground  Time  first." 
.SetEoeus 
Exit  Sub 
End  If 

TotalGroundTime2  =  TotalGroundTimeBox2 
If  TotalGroundTime2  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Total  Ground  Time." 
.SetEoeus 
Exit  Sub 
End  If 
End  With 

With  RTPTBoxS 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Round  Trip  Plying  Time  first." 
.SetEoeus 
Exit  Sub 
End  If 

RTPT3  =  RTPTBoxS 
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If  RTFT3  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Round  Trip  Flying  Time." 
•SetFoeus 
Exit  Sub 
End  If 
End  With 

With  TotalGroundTimeBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Total  Ground  Time  first." 
.SetEocus 
Exit  Sub 
End  If 

TotalGroundTimeS  =  TotalGroundTimeBoxS 
If  TotalGroundTimeS  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Total  Ground  Time." 
.SetEocus 
Exit  Sub 
End  If 
End  With 

'  Calculates  the  Cycle  Time 

CycleTime  =  RTET  +  TotalGroundTime 
CycleTime2  =  RTET2  +  TotalGroundTime2 
CycleTimeS  =  RTET3  +  TotalGroundTime3 
'  Enters  the  cycle  time  into  the  form 

CycleTime  =  RoundNear( CycleTime,  0.1) 

With  CycleTimeBox 

CycleTimeBox  =  CycleTime 
End  With 

CycleTime2  =  RoundNear(CycleTime2,  0.1) 

With  CycleTimeBox2 

CycleTimeBox2  =  CycleTime2 
End  With 

CycleTime3  =  RoundNear(CycleTime3,  0.1) 

With  CycleTimeBox3 

CycleTimeBox3  =  CycleTime3 
End  With 
End  Sub 

Private  Sub  CmdDone_Click() 

'  Informs  user  clicking  button  will  erase  and  shut  form,  and  ensures  user  wishes  to 
continue 

Result  =  MsgBox("This  will  close  the  form,  erasing  all  data."  &  vbCrEf  _ 

&  vbCrEf  &  "Do  you  want  to  continue  closing  this  form?",  _ 
vbYesNo,  "Close  Eorms") 

If  Result  =  6  Then 

ThisWorkbook.Worksheets("Tanker  Employment").  Activate 
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Unload  Me 

Unload  InputFuelReqData 
Unload  InputFuelAvailData 
Unload  InputFirstRTFTData 
Unload  InputAdditionalRTFTData 
Unload  InputFinalRTFTData 
Unload  InputGroundTimeData 
Unload  InputAircrewIntData 
Unload  InputBaseIntData 
TrackRTFTEnter  =  0 
ReturnToForm  =  0 

'  Unload  InputAircraftIntData  ***  Hiding  this  command  til  debugged. 

'  (Will  only  unload  if  data  had  been  entered  into  form,  otherwise  hits  a  bug) 
Else 

Exit  Sub 
End  If 
End  Sub 


Private  Sub  CmdInstructions_Click() 

'  Calls  the  form  to  give  instructions  to  the  user 
InstructionsPg  1 .  Show 
End  Sub 

Private  Sub  Cmdprint_Click() 

Maininput.  PrintE  orm 
End  Sub 

Private  Sub  CmdTotalGroundTime_Click() 

Dim  Result  As  Integer 

'  Calls  form  to  enter  total  ground  time 

InputGroundT  imeData.  Show 

With  TotalGroundTimeBox 

TotalGroundTimeBox  =  TotalGroundTime 
End  With 

With  TotalGroundTimeBox! 

TotalGroundTimeBox!  =  TotalGroundTime! 
End  With 

With  TotalGroundTimeBox! 

TotalGroundTimeBox!  =  TotalGroundTime! 
End  With 
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End  Sub 


Sub  InputTotalGroundTimeO 
End  Sub 


Sub  CheckInputsMaxEuelO 

'  Ensures  Offload  Available  and  the  aireraft,  airerew  and  stations  intervals  have  been 
entered 

With  OffloadAvailBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "A  numerieal  number  for  Offload  Available  is  required  to  caleulate  the 
Maximum  Euel  Available." 

.SetEoeus 
BoxCheck  =  1 
Exit  Sub 
End  If 

OffloadAvail  =  OffloadAvailBox 
If  OffloadReq  <  0  Then 

MsgBox  "That  Offload  Available  should  be  a  nonnegative  value  in  order  to 
ealeulate  the  Maximum  Euel  Available." 

.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  AireraftIntBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "A  numerical  number  for  Aircraft  Sortie  Generation  rate"  &  _ 

"  is  required  to  calculate  the  Maximum  Euel  Available." 

.SetEoeus 
BoxCheck  =  1 
Exit  Sub 
End  If 

Aircraftint  =  AireraftIntBox 
If  OffloadReq  <  0  Then 

MsgBox  "That  Aircraft  Sortie  Generation  rate  should  be  a  "  &  _ 

"nonnegative  value  in  order  to  calculate  the  Maximum  Euel  Available." 
.SetEoeus 
BoxCheck  =  1 
Exit  Sub 
End  If 
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End  With 

With  AircrewIntBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "A  numerical  number  for  Aircrew  Sortie  Generation  rate"  &  _ 

"  is  required  to  calculate  the  Maximum  Fuel  Available." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

Aircrewint  =  AircrewIntBox 
If  OffloadReq  <  0  Then 

MsgBox  "That  Aircrew  Sortie  Generation  rate  should  be  a  "  &  _ 

"nonnegative  value  in  order  to  calculate  the  Maximum  Fuel  Available." 
.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 
With  BaseIntBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "A  numerical  number  for  Base  Sortie  Generation  rate"  &  _ 

"  is  required  to  calculate  the  Maximum  Fuel  Available." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

Baseint  =  BaseIntBox 
If  OffloadReq  <  0  Then 

MsgBox  "The  Base  Sortie  Generation  rate  should  be  a  "  &  _ 

"nonnegative  value  in  order  to  calculate  the  Maximum  Fuel  Available." 
.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

'tanker2 

'  Ensures  Offload  Available  and  the  aircraft,  aircrew  and  stations  intervals  have  been 
entered 

With  OffloadAvailBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "A  numerical  number  for  Offload  Available  is  required  to  calculate  the 
Maximum  Fuel  Available." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
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End  If 

OffloadAvail2  =  OffloadAvailBox2 
If  OffloadReq  <  0  Then 

MsgBox  "That  Offload  Available  should  be  a  nonnegative  value  in  order  to 
ealeulate  the  Maximum  Fuel  Available." 

•SetFoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  AireraftIntBox2 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "A  numerieal  number  for  Aireraft  Sortie  Generation  rate"  &  _ 

"  is  required  to  ealeulate  the  Maximum  Fuel  Available." 

.SetFoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

Aireraftlnt2  =  AireraftIntBox2 
If  OffloadReq  <  0  Then 

MsgBox  "That  Aireraft  Sortie  Generation  rate  should  be  a  "  &  _ 

"nonnegative  value  in  order  to  ealeulate  the  Maximum  Fuel  Available." 
.SetFoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  AirerewIntBox2 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "A  numerieal  number  for  Airerew  Sortie  Generation  rate"  &  _ 

"  is  required  to  ealeulate  the  Maximum  Fuel  Available." 

.SetFoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

Airerewlnt2  =  AirerewIntBox2 
If  OffloadReq  <  0  Then 

MsgBox  "That  Airerew  Sortie  Generation  rate  should  be  a  "  &  _ 

"nonnegative  value  in  order  to  ealeulate  the  Maximum  Fuel  Available." 
.SetFoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 
With  BaseIntBox2 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 
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MsgBox  "A  numerical  number  for  Base  Sortie  Generation  rate"  &  _ 

"  is  required  to  calculate  the  Maximum  Fuel  Available." 

•SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

Baselnt2  =  BaseIntBox2 
If  OffloadReq  <  0  Then 

MsgBox  "The  Base  Sortie  Generation  rate  should  be  a  "  &  _ 

"nonnegative  value  in  order  to  calculate  the  Maximum  Euel  Available." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

'tankerS 

'  Ensures  Offload  Available  and  the  aircraft,  aircrew  and  stations  intervals  have  been 
entered 

With  OffloadAvailBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "A  numerical  number  for  Offload  Available  is  required  to  calculate  the 
Maximum  Euel  Available." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

OffloadAvaiB  =  OffloadAvailBoxS 
If  OffloadReq  <  0  Then 

MsgBox  "That  Offload  Available  should  be  a  nonnegative  value  in  order  to 
calculate  the  Maximum  Euel  Available." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  AircraftIntBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "A  numerical  number  for  Aircraft  Sortie  Generation  rate"  &  _ 

"  is  required  to  calculate  the  Maximum  Euel  Available." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

AircraftIntS  =  AircraftlntBoxS 
If  OffloadReq  <  0  Then 
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MsgBox  "That  Aircraft  Sortie  Generation  rate  should  be  a  "  &  _ 

"nonnegative  value  in  order  to  ealeulate  the  Maximum  Fuel  Available." 
•SetFoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  AirerewIntBoxS 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "A  numerieal  number  for  Airerew  Sortie  Generation  rate"  &  _ 

"  is  required  to  ealeulate  the  Maximum  Euel  Available." 

.SetEocus 
BoxCheek  =  1 
Exit  Sub 
End  If 

AirerewIntS  =  AirerewIntBoxS 
If  OffloadReq  <  0  Then 

MsgBox  "That  Airerew  Sortie  Generation  rate  should  be  a  "  &  _ 

"nonnegative  value  in  order  to  ealeulate  the  Maximum  Euel  Available." 
.SetEocus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 
With  BaseIntBoxS 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "A  numerieal  number  for  Base  Sortie  Generation  rate"  &  _ 

"  is  required  to  ealeulate  the  Maximum  Euel  Available." 

.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

BaseIntS  =  BaseIntBoxS 
If  OffloadReq  <  0  Then 

MsgBox  "The  Base  Sortie  Generation  rate  should  be  a  "  &  _ 

"nonnegative  value  in  order  to  ealeulate  the  Maximum  Euel  Available." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 
End  Sub 


Sub  CheekInputsMissionReqO 

'  Eirst  eheeks  to  ensure  offload  required  and  offload  available  data  has  been  entered 
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With  OffloadReqBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Offload  Required." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

OffloadReq  =  OffloadReqBox 
If  OffloadReq  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Offload  Required." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  OffloadAvailBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Offload  Available." 
.SetEoeus 
BoxCheck  =  1 
Exit  Sub 
End  If 

OffloadAvail  =  OffloadAvailBox 
If  OffloadAvail  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Offload  Available." 
.SetEoeus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

'tanker2  Eirst  checks  to  ensure  offload  required  and  offload  available  data  has  been 
entered 

With  OffloadAvailBox! 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Offload  Available." 
.SetEoeus 
BoxCheck  =  1 
Exit  Sub 
End  If 

OffloadAvail!  =  OffloadAvailBox! 

If  OffloadAvail!  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Offload  Available." 
.SetEoeus 
BoxCheck  =  1 
Exit  Sub 
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End  If 
End  With 

With  OffloadAvailBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Offload  Available." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

OffloadAvaiB  =  OffloadAvailBoxS 
If  OffloadAvaiB  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Offload  Available." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 


End  Sub 


Private  Sub  maxboommissionbox_Change() 
End  Sub 

Private  Sub  CmdTotalGroundTime2_Cliek() 
End  Sub 


Private  Sub  maxboomtankertypebox_Change() 
End  Sub 

Private  Sub  Label2_Click() 

End  Sub 
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Private  Sub  MinMissionFrame_Click() 

End  Sub 

Private  Sub  MissionReqBox_Change() 

End  Sub 

Private  Sub  OffloadAvailBox_Change() 

End  Sub 

Private  Sub  OffloadAvailBox2_Change() 

End  Sub 

Private  Sub  OffloadAvailBox3_Change() 

End  Sub 

Private  Sub  OffloadAvailTTl_Cliek() 

With  OffloadAvailTTlBox 

OffloadAvailTTlBox  =  OffloadAvailBox  *  aireraftleount 
End  With 

With  OffloadAvailTT2Box 

OffloadAvailTT2Box  =  OffloadAvailBox2  *  aireraft2eount 
End  With 

With  OffloadAvailTTSBox 

OffloadAvailTTSBox  =  OffloadAvailBoxS  *  aireraftSeount 
End  With 

With  OffloadAvailTTlBox 

OffloadAvailTTTBox  =  OffloadAvailTTlBox  *  1  +  1  *  OffloadAvailTT2Box  +  1  * 
OffloadAvailTTSBox 
End  With 
With  aircraftteount 

aireraftteount  =  aireraftleount  *  1  +  airoraft2oount  *  1  +  aireraftSeount  *  1 
End  With 


End  Sub 


Private  Sub  OffloadAvailTTlBox_Change() 
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End  Sub 


Private  Sub  RTFTBox_Change() 
End  Sub 

Private  Sub  RTFTBox2_Change() 
End  Sub 

Private  Sub  TextBoxl3_Change() 
End  Sub 

Private  Sub  TextBoxl9_Change() 
End  Sub 

Private  Sub  TextBox24_Change() 
End  Sub 

Private  Sub  TextBox6_Change() 
End  Sub 

Private  Sub  TextBox7_Change() 
End  Sub 

Private  Sub  EiserForm_Click() 
End  Sub 
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Tanker  Employment  Calculations  --  Instructions,  Page  1 


Tanker  Employment  Calculations 


The  Tanker  EnqiloNTnent  Calculations  is  designed  to  gK'e  a  broad  strategic  overview  of 
planning  tanker  support  specifically  during  emplovinents.  Using  the  modeL  the  user  inputs  data 
to  calcidate  the  amount  of  fuel  available  and  the  amount  of  fuel  required  in  order  to  determine 
the  minimum  number  of  tanker  missions  required.  Additionally,  the  user  can  calculate  the 
maximum  fuel  available  per  day  based  upon  data  inputed  to  calculate  the  maximum  sortie 
generation  capabilitv'  based  on  aircraft,  aircrew  and  base  c^abiKties.  WTien  opening  the 
model,  users  will  be  directed  to  the  main  page.  From  this  page,  users  can  either  enter  totals 
directly  into  the  input  boxes,  or  select  the  corresponding  button  to  input  data  used  to  calculate 
the  appropriate  information.  If  the  user  opts  to  input  information  using  the  buttons,  the 
appropriate  forms  will  be  displayed.  Specific  instructions  and  information  related  will  be 
available  for  each  form.  Data  inputted  should  be  of  consistent  units.  WTien  using  forms  to 
input  these  numbers,  the  instructions  will  either  provide  the  user  with  the  abilitv'  to  convert  to 
the  appropriate  units,  or  the  form  itself  will  provide  the  user  with  the  abiKtv'  to  indicate  vv'hich 
units  is  being  used.  If  the  user  inputs  the  data  manually  onto  the  main  form,  they  must  input  the 
data  in  the  correct  units.  Specifically,  all  distances  should  be  in  nautical  miles,  fuel  quantities 
should  be  in  pounds,  and  time  in  hours.  Four  sets  of  calculations.  Tanker  Offload  Available 
and  the  three  Sortie  Generation  Cepabilitv'  calculations.  Aircraft,  Aircrew  and  Station  Interval, 
allovv  the  user  to  input  an  utilization  percentage,  from  zero  to  one.  This  utilization  factor  is 
designed  to  aid  in  modeling  real  life  situations  and  queing  effects,  taking  into  account 
scheduling  and  operational  realities  driven  by  characteristics  of  real  world  receiver  demand. 
Inputting  a  number  closer  to  zero  will  represent  a  chaotic,  unsteady  realitv’.  Inputting  a 
number  closer  to  one  will  indicate  the  data  in  the  ghine  scenario  is  pefect.  Thus,  the  user  will 
be  able  to  perform  sentitivitv'  analysis  on  the  inputted  data.  Sev'eral  reference  sheets  are 
accessible  via  the  user  forms.  These  sheets  are  available  for  the  user  to  modifv'  as  required. 

To  access  sheets,  go  to  the  tools  menu,  options  submenu.  Click  on  the  sheet  tabs  box  to  view 
the  datasheets.  Modifv'  data  is  accomplished  as  the  same  as  any  other  excel  data  sheet. 

The  Tanker  Err^lovment  model  is  bzised  off"  an  Air  Force  Institute  of  Technologv'  Master  of 
Logistics  thesis  :  "The  Algebra  of  Tanker,"  by  Maj  Margaret  M.  Romero.  MAJ  Scott 
Grant  modified  the  model  to  enable  multiple  tanker  calculations. 

extra  notes:  Input  total  amount  of  Fuel  Required  by  Receh'ers,  or  use  button  to  input 
data  to  calculate  (Tbs) ...  Input  total  amount  of  Fuel  Available  from  Tankers,  or  use  button 
to  input  data  to  calculate  (lbs)....  Ii5)ut  Total  Ground  Time,  or  use  button  to  calculate... Input 
Round  Trip  Fhing  Time,  or  use  button  to  input  data  to  calculatinput  Round  Trip  Flving  Time, 
or  use  button  to  input  data  to  calculate. ..Use  buttons  to  calculate  Sortie  Generation 
Ceqjabilities  based  on  Aircraft,  Aircrew  and  Base  information,  or  input  daily  equabilities  per 
unit  directly  into  the  appropriate 


Print 


Cancel 


Option  Explicit 

Private  Sub  CancelCmd_Click() 
Unload  Me 
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End  Sub 


Private  Sub  CommandButtonl_Click() 
End  Sub 


Private  Sub  NextCmd_Click() 
Einload  Me 
InstructionsPg2  .Show 
End  Sub 


Private  Sub  EiserPorm_Click() 
End  Sub 

Private  Sub  Cmdprint_Click() 
InstructionsPg  E  PrintEorm 
End  Sub 
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Option  Explicit 

Dim  TempSortieDuration  As  Variant,  TempAvgFuelBurn  As  Long,  _ 
TempTotalFuel  As  Long,  Temp  Reserve  As  Long,  TempNumber  As  Long, 
TempOffload  As  Variant,  BoxCheck  As  Integer 

Private  Sub  CmdCancel_Click() 

Unload  Me 
End 

End  Sub 

Private  Sub  CalculateCommandButton_Click() 

'  Calls  subroutine  to  check  if  inputs  are  valid 
BoxCheck  =  0 
Call  Checkinputs 
If  BoxCheck  =  1  Then 
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Exit  Sub 
End  If 

'Calculate  Offload  Required  and  plaees  the  value  in  the  box  for  users  to  review 
TempOffload  =  (TempSortieDuration  *  TempAvgEuelBurn)  -  TempTotalEuel  + 
TempReserve 

OfRoadReq  =  TempOffload  *  TempNumber 
OffloadReqBox  =  OffloadReq 
End  Sub 

Private  Sub  CancelCommandButton_Click() 

Unload  Me 
End  Sub 

Private  Sub  ClearCmd_Chek() 

'Resets  all  variables  used  in  form 
TempSortieDuration  =  0 
TempAvgEuelBurn  =  0 
TempTotalEuel  =  0 
TempReserve  =  0 
TempNumber  =  0 

'Clears  form  by  closing  then  reopening  it 
Unload  Me 

InputEuelReqData.Show 
End  Sub 

Private  Sub  emdViewPuelPlow_Click() 

'  Initializes  ReturntoEorm  to  return  to  this  form 
ReturnToEorm  =  1 

'  Activates  the  worksheet  with  the  chart 
InputEuelReqData.Hide 
MainInput.Hide 

ThisWorkbook.Worksheets("Euel  Elow").  Activate 
With  AvgEuelBurnBox 
•SetEoeus 
End  With 
End  Sub 


Private  Sub  emdViewReeeiverInfo_Click() 

'  Initializes  ReturntoEorm  to  return  to  this  form 
ReturnToEorm  =  1 

'  Activates  the  worksheet  with  the  appropriate  chart 
InputEuelReqData.Hide 
MainInput.Hide 

ThisWorkbook.Worksheets("Receiver").Aetivate 
With  TotalEuelBox 


67 


•SetFocus 
End  With 
End  Sub 

Private  Sub  InstructionsCmd_Click() 

'  Opens  form  for  instruetions  for  Inputting  data  for  Required  Euel 
InstruetionsEuelReq.  Show 
End  Sub 

Sub  CheeklnputsO 

'  Cheeks  to  ensure  users  inputs  are  numerie,  and  appropriate  (eonverting  minutes  to  hour 
if  needed) 

'  Assigns  users  inputs  to  temporary  variables  to  ealculate  receivers'  required  fuel 
With  SortieTimeBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  duration  time  of  the  sortie." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempSortieDuration  =  SortieTimeBox 
If  TempSortieDuration  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  duration  time  of  the  sortie." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

If  HoursOption  =  Ealse  And  MinutesOption  =  Ealse  Then 

MsgBox  "Please  indicate  if  sortie  duration  is  in  hours  or  minutes." 

Exit  Sub 

Elself  MinutesOption  =  True  Then 

TempSortieDuration  =  TempSortieDuration  \  60 
End  If 

With  AvgEuelBurnBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  EuelElow." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempAvgEuelBurn  =  AvgEuelBurnBox 
If  TempAvgEuelBurn  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Average  Euel  Burn  Rate." 

.SetEocus 

BoxCheck  =  1 
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Exit  Sub 
End  If 
End  With 

With  TotalEuelBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Total  Euel  Eoaded." 

•SetEoeus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempTotalEuel  =  TotalEuelBox 
If  TempTotalEuel  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Total  Euel  Eoaded." 

.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  DestinationReserveBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Destination  Reserve  fuel  desired." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempReserve  =  DestinationReserveBox 
If  TempReserve  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Destination  Reserve  fuel 
desired." 

.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  NumReceiverBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Number  of  Receiver  Aircraft." 
.SetEoeus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempNumber  =  NumReceiverBox 
If  TempReserve  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Number  of  Receiver  Aircraft." 

.SetEoeus 

BoxCheck  =  1 


69 


Exit  Sub 
End  If 
End  With 
End  Sub 

Private  Sub  RetumCmd_Click() 

'Returns  the  user  to  the  main  form,  saving  the  data  by  hiding  the  form 
InputEuelReqData.Hide 
End  Sub 

Private  Sub  EiserPorm_Click() 

End  Sub 
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Option  Explicit 

Dim  ws  As  Worksheet,  BoxCheck  As  Integer,  TempOffloadReq  As  String,  Result  As 
Integer 


Private  Sub  BoomMissionReqbox_Change() 
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End  Sub 


Private  Sub  Aircraftct_Change() 

End  Sub 

Private  Sub  aircraftusedBox3b_Change() 

End  Sub 

Private  Sub  ealcmaxtankers_Click() 

Dim  maxbooms  As  Integer,  missionsreql  As  Currency,  aircraftusedl  As  Currency, 
missionsreq2  As  Currency,  aircraftused2  As  Currency,  _ 
missionsreqS  As  Currency,  aircraftusedS  As  Currency 

'resets  values 

aircraftusedBoxlf  =  0 
aircraftusedBox2f  =  0 
aircraftusedBoxSf  =  0 
missionsreql  =  0 
missionsreq2  =  0 
missionsreq2  =  0 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 
missionsreq2  =  OffloadReqBox  /  OffloadAvailBox2 
missionsreqS  =  OffloadReqBox  /  OffloadAvailBoxS 


'Calculates  Minimum  Tankers  needed  to  meet  fuel  offload  required 


If  missionsreql  >  missionsreq2  Then  '  1st  phase 
If  missionsreql  >  missionsreqS  Then 
'  aircraftcount  calculaton 

If  missionsreql  <  aircraft  1  count  Then 
aircraftusedBoxlf  =  missionsreql 

Else:  aircraftusedBoxlf  =  aircraft  1  count 
End  If 


OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxlf*  OffloadAvailBox) 
missionsreq2  =  OffloadReqBox  /  OffloadAvailBox2 
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missionsreqS  =  OffloadReqBox  /  OffloadAvailBoxS 

If  missionsreq2  >  missionsreqS  Then 
If  missionsreq2  <  aircraft2count  Then 
aireraftusedBox2f  =  missionsreq2 

Else:  aireraftusedBox2f  =  aireraft2count 
End  If 

OffloadReqBox  =  OffloadReqBox  -  (airoraftusedBox2f  * 
OffloadAvailBox2) 

missionsreqS  =  OffloadReqBox  /  OffloadAvailBoxS 

If  missionsreqS  <  aircrafts  eount  Then 
aireraftusedBoxSf  =  missionsreqS 
OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxSf  * 
OffloadAvailBoxS) 

Else:  aireraftusedBoxSf  =  aircrafts eount 

OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxSf  * 
OffloadAvailBoxS) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 

Elself  missionsreqS  >  missionsreq2  Then 

If  missionsreqS  <  aircrafts  count  Then 
aireraftusedBoxSf  =  missionsreqS 

Else:  aireraftusedBoxSf  =  aircrafts  count 
End  If 

OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxSf* 
OffloadAvailBoxS) 

missionsreq2  =  OffloadReqBox  /  OffloadAvailBox2 

If  missionsreq2  <  aircraft2count  Then 
aircraftusedBox2f  =  missionsreq2 
OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBox2f  * 
OffloadAvailBox2) 

Else:  aircraftusedBox2f  =  aircraft2count 
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OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBox2f  * 
OffloadAvailBox2) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 

End  If  'eheek  this  END  IE 

Elself  missionsreqS  >  missionsreql  Then 

'  airerafteount  ealeulaton 
If  missionsreqS  <  aireraftSeount  Then 
aireraftusedBoxSf  =  missionsreqS 

Else:  aireraftusedBoxSf  =  aireraftSeount 
End  If 


OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxSf  *  OffloadAvailBoxS) 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 
missionsreq2  =  OffloadReqBox  /  OffloadAvailBox2 

If  missionsreql  >  missionsreq2  Then 
If  missionsreql  <  aireraftleount  Then 
aireraftusedBoxlf  =  missionsreql 

Else:  aireraftusedBoxlf  =  aireraftleount 
End  If 

OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxlf*  OffloadAvailBox) 

missionsreq2  =  OffloadReqBox  /  OffloadAvailBox2 

If  missionsreq2  <  airoraft2oount  Then 
aireraftusedBox2f  =  missionsreq2 
OffloadReqBox  =  OffloadReqBox  -  (airoraftusedBox2f  * 
OffloadAvailBox2) 

Else:  aireraftusedBox2f  =  aireraft2eount 

OffloadReqBox  =  OffloadReqBox  -  (airoraftusedBox2f  * 
OffloadAvailBox2) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 
End  If 
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End  If 


Elself  missionsreq2  >  missionsreql  Then  '2nd  phase 
If  missionsreq2  >  missionsreqS  Then 
'  airerafteount  ealeulaton 

If  missionsreq2  <  aireraft2eount  Then 
aireraftusedBox2f  =  missionsreq2 

Else:  aireraftusedBox2f  =  aireraft2eount 
End  If 


OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBox2f  *  OffloadAvailBox2) 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 
missionsreqS  =  OffloadReqBox  /  OffloadAvailBoxS 

If  missionsreql  >  missionsreqS  Then 
If  missionsreql  <  aireraftleount  Then 
aireraftusedBoxlf  =  missionsreql 

Else:  aireraftusedBoxlf  =  aireraftleount 
End  If 

OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxlf*  OffloadAvailBox) 

missionsreqS  =  OffloadReqBox  /  OffloadAvailBoxS 

If  missionsreqS  <  aireraftSeount  Then 
aireraftusedBoxSf  =  missionsreqS 
OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxSf  * 
OffloadAvailBoxS) 

Else:  aireraftusedBoxSf  =  aireraftSeount 

OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxSf  * 
OffloadAvailBoxS) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 

Elself  missionsreqS  >  missionsreql  Then 

If  missionsreqS  <  aireraftSeount  Then 
aireraftusedBoxSf  =  missionsreqS 
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Else:  aircraftusedBoxSf  =  aircrafts  count 
End  If 


OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxSf  * 
OffloadAvailBoxS) 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 

If  missionsreql  <  aircraft  1  count  Then 
aircraftusedBoxlf  =  missionsreql 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxlf  * 
OffloadAvailBox) 

Else:  aircraftusedBoxlf  =  aircraft  1  count 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxlf  * 
OffloadAvailBox) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 

End  If  'check  this  END  IE 

Elself  missionsreqS  >  missionsreql  Then 

'  aircraftcount  calculaton 
If  missionsreqS  <  aircrafts  count  Then 
aircraftusedBoxSf  =  missionsreqS 

Else:  aircraftusedBoxSf  =  aircrafts  count 
End  If 


OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxSf*  OffloadAvailBoxS) 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 
missionsreql  =  OffloadReqBox  /  OffloadAvailBoxl 

If  missionsreql  >  missionsreql  Then 
If  missionsreql  <  aircraftlcount  Then 
aircraftusedBoxlf  =  missionsreql 

Else:  aircraftusedBoxlf  =  aircraftlcount 
End  If 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxlf  * 
OffloadAvailBoxl) 
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missionsreql  =  OffloadReqBox  /  OffloadAvailBox 


If  missionsreql  <  aircraft  1  count  Then 
aircraftusedBoxlf  =  missionsreql 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxlf  * 
OffloadAvailBox) 

Else:  aircraftusedBoxlf  =  aircraft  1  count 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxlf  * 
OffloadAvailBox) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 


End  If 
End  If 
End  If 

End  Sub 

Private  Sub  calcmintankers_Click() 

Dim  maxbooms  As  Integer,  missionsreql  As  Currency,  aircraftusedl  As  Currency, 
missionsreq2  As  Currency,  aircraftusedl  As  Currency,  _ 
missionsreqS  As  Currency,  aircraftusedS  As  Currency 

'resets  values 

aircraftusedBoxlb  =  0 
aircraftusedBoxlb  =  0 
aircraftusedBoxSb  =  0 
missionsreql  =  0 
missionsreql  =  0 
missionsreql  =  0 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 
missionsreql  =  OffloadReqBox  /  OffloadAvailBoxl 
missionsreql  =  OffloadReqBox  /  OffloadAvailBox! 


'Calculates  Minimum  Tankers  needed  to  meet  fuel  offload  required 


If  missionsreql  <  missionsreql  Then  '  1st  phase 
If  missionsreql  <  missionsreqS  Then 
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'  aircraftcount  calculaton 

If  missionsreql  <  aircraft  1  count  Then 
aircraftusedBoxlb  =  missionsreql 

Else:  aircraftusedBoxlb  =  aircraft  1  count 
End  If 


OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxlb  *  OffloadAvailBox) 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox! 
missionsreql  =  OffloadReqBox  /  OffloadAvailBox! 

If  missionsreql  <  missionsreqS  Then 
If  missionsreql  <  aireraftlcount  Then 
aireraftusedBoxlb  =  missionsreql 

Else:  aircraftusedBoxlb  =  aireraftlcount 
End  If 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxlb  * 
OffloadAvailBox!) 

missionsreqS  =  OffloadReqBox  /  OffloadAvailBox! 

If  missionsreql  <  aircraft!  eount  Then 
aireraftusedBoxlb  =  missionsreql 
OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxlb  * 
OffloadAvailBox!) 

Else:  aircraftusedBoxlb  =  aircraft! eount 

OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxlb  * 
OffloadAvailBox!) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 

Elself  missionsreql  <  missionsreql  Then 

If  missionsreql  <  aireraftl  eount  Then 
aireraftusedBoxlb  =  missionsreql 

Else:  aircraftusedBoxlb  =  aireraftlcount 
End  If 
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OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxSb  * 
OffloadAvailBoxS) 

missionsreq2  =  OffloadReqBox  /  OffloadAvailBox2 

If  missionsreq2  <  aircraft2count  Then 
aireraftusedBox2b  =  missionsreq2 
OffloadReqBox  =  OffloadReqBox  -  (airoraftusedBox2b  * 
OffloadAvailBox2) 

Else:  aireraftusedBox2b  =  aireraft2eount 

OffloadReqBox  =  OffloadReqBox  -  (airoraftusedBox2b  * 
OffloadAvailBox2) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 

End  If  'eheek  this  END  IE 

Elself  missionsreqS  <  missionsreql  Then 

'  airerafteount  ealculaton 
If  missionsreqS  <  aireraftSeount  Then 
aireraftusedBoxSb  =  missionsreqS 

Else:  aircraftusedBoxSb  =  aircrafts eount 
End  If 


OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxSb  *  OffloadAvailBoxS) 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 
missionsreq2  =  OffloadReqBox  /  OffloadAvailBox2 

If  missionsreql  <  missionsreq2  Then 
If  missionsreql  <  aircraft  I  count  Then 
aircraftusedBoxIb  =  missionsreql 

Else:  aircraftusedBoxIb  =  aircraft  I  count 
End  If 

OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxIb  *  OffloadAvailBox) 

missionsreq2  =  OffloadReqBox  /  OffloadAvailBox2 

If  missionsreq2  <  aircraft2count  Then 
aircraftusedBox2b  =  missionsreq2 
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OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBox2b  * 
OffloadAvailBox2) 

Else;  aircraftusedBox2b  =  aircraft2count 

OffloadReqBox  =  OffloadReqBox  -  (airoraftusedBox2b  * 
OffloadAvailBox2) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 
End  If 
End  If 

Elself  missionsreq2  <  missionsreql  Then  '2nd  phase 
If  missionsreq2  <  missionsreqS  Then 
'  airerafteount  ealculaton 

If  missionsreq2  <  aireraft2eount  Then 
aireraftusedBox2b  =  missionsreq2 

Else:  aircraftusedBox2b  =  aircraft2eount 
End  If 


OffloadReqBox  =  OffloadReqBox  -  (airoraftusedBox2b  *  OffloadAvailBox2) 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 
missionsreqS  =  OffloadReqBox  /  OffloadAvailBoxS 

If  missionsreql  <  missionsreqS  Then 
If  missionsreql  <  aireraftleount  Then 
aireraftusedBoxlb  =  missionsreql 

Else:  aireraftusedBoxlb  =  aireraftleount 
End  If 

OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxlb  *  OffloadAvailBox) 

missionsreqS  =  OffloadReqBox  /  OffloadAvailBoxS 

If  missionsreqS  <  aireraftSeount  Then 
aireraftusedBoxSb  =  missionsreqS 
OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxSb  * 
OffloadAvailBoxS) 

Else:  aireraftusedBoxSb  =  aireraftS count 
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OffloadReqBox  =  OffloadReqBox  -  (aircraftusedBoxSb  * 
OffloadAvailBoxS) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 

Elself  missionsreqS  <  missionsreql  Then 

If  missionsreqS  <  aireraftSeount  Then 
aireraftusedBoxSb  =  missionsreqS 

Else:  aireraftusedBoxSb  =  aireraftSeount 
End  If 

OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxSb  * 
OffloadAvailBoxS) 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 

If  missionsreql  <  aireraftleount  Then 
aireraftusedBoxlb  =  missionsreql 
OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxlb  * 
OffloadAvailBox) 

Else:  aireraftusedBoxlb  =  aireraftleount 

OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxlb  * 
OffloadAvailBox) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 

End  If  'eheek  this  END  IE 

Elself  missionsreqS  <  missionsreql  Then 

'  airerafteount  ealeulaton 
If  missionsreqS  <  aireraftSeount  Then 
aireraftusedBoxSb  =  missionsreql 

Else:  aireraftusedBoxlb  =  aireraftleount 
End  If 


OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxlb  *  OffloadAvailBoxl) 
missionsreql  =  OffloadReqBox  /  OffloadAvailBox 
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missionsreq2  =  OffloadReqBox  /  OffloadAvailBox2 

If  missionsreq2  <  missionsreql  Then 
If  missionsreq2  <  aircraft2count  Then 
aireraftusedBox2b  =  missionsreq2 

Else:  aireraftusedBox2b  =  aireraft2eount 
End  If 

OffloadReqBox  =  OffloadReqBox  -  (airoraftusedBox2b  * 
OffloadAvailBox2) 

missionsreql  =  OffloadReqBox  /  OffloadAvailBox 

If  missionsreql  <  aireraftleount  Then 
aireraftusedBoxlb  =  missionsreql 
OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxlb  * 
OffloadAvailBox) 

Else:  aireraftusedBoxlb  =  aireraftleount 

OffloadReqBox  =  OffloadReqBox  -  (aireraftusedBoxlb  * 
OffloadAvailBox) 

MsgBox  "Please  adjust  fuel  available  or  fuel  required  to  meet  mission 

parameters." 

End  If 

End  If 
End  If 
End  If 

End  Sub 


Private  Sub  CmdCaleAireraftInt_Cliek() 

'  Eirst  eheeks  to  ensure  user  has  entered  Cyele  Time,  required  for  ealculations 
With  CyeleTimeBox 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "The  Cyele  Time  is  required  to  ealeulate  Sortie  Generation  Capablity  for 
aireraft,  "  _ 

&  "please  enter  a  nonnumerie  value." 

.SetEoeus 
Exit  Sub 
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End  If 

CycleTime  =  CycleTimeBox 
If  CycleTime  <  0  Then 

MsgBox  "The  Cycle  Time  is  required  to  ealeulate  Sortie  Generation  Capablity  for 
aireraft,  "  _ 

&  "please  enter  a  nonnegative  value." 

•SetFocus 
Exit  Sub 
End  If 
End  With 

With  CyeleTimeBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "The  Cyele  Time  is  required  to  ealeulate  Sortie  Generation  Capablity  for 
aircraft,  "  _ 

&  "please  enter  a  nonnumerie  value." 

.SetFoeus 
Exit  Sub 
End  If 

CycleTime!  =  CycleTimeBox! 

If  CyeleTime!  <  0  Then 

MsgBox  "The  Cycle  Time  is  required  to  ealeulate  Sortie  Generation  Capablity  for 
aireraft,  "  _ 

&  "please  enter  a  nonnegative  value." 

.SetFoeus 
Exit  Sub 
End  If 
End  With 

With  CycleTimeBox! 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "The  Cyele  Time  is  required  to  ealeulate  Sortie  Generation  Capablity  for 
aircraft,  "  _ 

&  "please  enter  a  nonnumeric  value." 

.SetFoeus 
Exit  Sub 
End  If 

CyeleTime!  =  CyeleTimeBox! 

If  CyeleTime!  <  0  Then 

MsgBox  "The  Cyele  Time  is  required  to  ealeulate  Sortie  Generation  Capablity  for 
aircraft,  "  _ 

&  "please  enter  a  nonnegative  value." 

.SetFoeus 
Exit  Sub 
End  If 
End  With 
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'  Calls  user  form  to  aircraft  assigned,  NMC  and  calculate  the  aircraft  generation  capability 
InputAircraftIntData.  Show 
Aircraftint  =  RoundNear(AircraftInt,  0.1) 

With  AircraftIntBox 

AircraftIntBox  =  Aircraftint 
End  With 

Aircraftint!  =  RoundNear( Aircraftint!,  O.I) 

With  AircraftIntBox! 

AircraftIntBox!  =  Aircraftint! 

End  With 

Aircraftint!  =  RoundNear( Aircraftint!,  O.I) 

With  AircraftIntBox! 

AircraftIntBox!  =  Aircraftint 
End  With 

End  Sub 


Private  Sub  CmdCalcAircrewInt_Click() 

'  Eirst  checks  to  ensure  user  has  entered  Round  Trip  Elying  Time,  required  for 
calculations 
With  RTETBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "The  Round  Trip  Elying  Time  is  required  for  Sortie  Generation 
Capablity  for  aircrew,  "  _ 

&  "please  enter  a  nonnumeric  value." 

.SetEocus 
Exit  Sub 
End  If 

RTET  =  RTETBox 
If  RTFT  <  0  Then 

MsgBox  "The  Round  Trip  Flying  Time  is  required  for  Sortie  Generation 
Capablity  for  aircrew,  "  _ 

&  "please  enter  a  nonnegative  value." 

.SetEocus 
Exit  Sub 
End  If 
End  With 

With  RTETBox! 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "The  Round  Trip  Flying  Time  is  required  for  Sortie  Generation 
Capablity  for  aircrew,  "  _ 

&  "please  enter  a  nonnumeric  value." 

.SetEocus 
Exit  Sub 
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End  If 

RTFT2  =  RTFTBox2 
If  RTFT2  <  0  Then 

MsgBox  "The  Round  Trip  Flying  Time  is  required  for  Sortie  Generation 
Capablity  for  aircrew,  "  _ 

&  "please  enter  a  nonnegative  value." 

•SetFocus 
Exit  Sub 
End  If 
End  With 

With  RTFTBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "The  Round  Trip  Flying  Time  is  required  for  Sortie  Generation 
Capablity  for  aircrew,  "  _ 

&  "please  enter  a  nonnumeric  value." 

.SetFocus 
Exit  Sub 
End  If 

RTFT3  =  RTFTBoxS 
If  RTFT  <  0  Then 

MsgBox  "The  Round  Trip  Flying  Time  is  required  for  Sortie  Generation 
Capablity  for  aircrew,  "  _ 

&  "please  enter  a  nonnegative  value." 

.SetFocus 
Exit  Sub 
End  If 
End  With 

'  Calls  user  form  to  aircrew  assigned,  those  not  available,  and  the  time  frame,  and 
'  calculates  the  aircraft  generation  capability 
InputAircrewIntData.Show 

Aircrewint  =  RoundNear(AircrewInt,  0.1) 

With  AircrewIntBox 

AircrewIntBox  =  Aircrewint 
End  With 

Aircrewlnt2  =  RoundNear(AircrewInt2,  0.1) 

With  AircrewIntBox2 

AircrewIntBox2  =  Aircrewlnt2 
End  With 

AircrewIntS  =  RoundNear(AircrewInt3,  0.1) 

With  AircrewIntBox3 
AircrewIntBox3  =  Aircrewlnt3 
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End  With 
End  Sub 


Private  Sub  CmdCalcAircrewInt2_Click() 

End  Sub 

Private  Sub  CmdCaleMaxPuelAvail_Cliek() 

Dim  Elowlnt  As  Integer,  PlowInt2  As  Integer,  ElowIntS  As  Integer 
'  Calls  Subroutine  to  eheek  inputs  and  ensure  users  inputs  assigned  to  a  variable 
BoxCheek  =  0 
Call  CheeklnputsMaxEuel 
If  BoxCheek  =  1  Then 
Exit  Sub 
End  If 

'Caleulates  Elow  Interval  by  finding  the  minimum  of  that  aircraft,  aircrew  and  station 
intervals 

If  Aircraftint  <  Aircrewint  Then 
If  Aircraftint  <  Baseint  Then 
Elowlnt  =  Aircraftint 
Else 

Elowlnt  =  Baseint 
End  If 

Elself  Aircrewint  <  Aircraftint  Then 
If  Aircrewint  <  Baseint  Then 
Elowlnt  =  Aircrewint 
Else 

Elowlnt  =  Baseint 
End  If 

Elself  Baseint  <  Aircraftint  Then 
If  Baseint  <  Aircrewint  Then 
Elowlnt  =  Baseint 
Else 

Elowlnt  =  Aircrewint 
End  If 
End  If 

'tanker2  Calculates  Elow  Interval  by  finding  the  minimum  of  that  aircraft,  aircrew  and 
station  intervals 

If  Aircraftlnt2  <  Aircrewlnt2  Then 
If  Aircraftlnt2  <  Baselnt2  Then 
ElowInt2  =  Aircraftlnt2 
Else 

ElowInt2  =  Baselnt2 
End  If 

Elself  Aircrewlnt2  <  Aircraftlnt2  Then 
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If  Aircrewlnt2  <  Baselnt2  Then 
FlowInt2  =  Aircrewlnt2 
Else 

FlowInt2  =  Baselnt2 
End  If 

Elself  Baselnt2  <  Aircraftlnt2  Then 
If  Baselnt2  <  Aircrewlnt2  Then 
FlowInt2  =  Baselnt2 
Else 

ElowInt2  =  Aircrewlnt2 
End  If 
End  If 

'tankerS  Calculates  Elow  Interval  by  finding  the  minimum  of  that  aircraft,  aircrew  and 
station  intervals 

If  AircraftIntS  <  AircrewIntS  Then 
If  AircraftIntS  <  BaseIntS  Then 
FlowIntS  =  AircraftIntS 
Else 

ElowIntS  =  BaseIntS 
End  If 

Elself  AircrewIntS  <  AircraftIntS  Then 
If  AircrewIntS  <  BaseIntS  Then 
FlowIntS  =  AircrewIntS 
Else 

ElowIntS  =  BaseIntS 
End  If 

Elself  BaseIntS  <  AircraftIntS  Then 
IfBaseIntS  <  AircrewIntS  Then 
FlowIntS  =  BaseIntS 
Else 

ElowIntS  =  AircrewIntS 
End  If 
End  If 

'  Calculates  the  Maximum  Euel  Available  and  enters  into  form  and  Data  Worksheet 
MaxEuelAvail  =  ElowInt  *  OffioadAvail 
With  MaxEuelAvailBox 

MaxEuelAvailBox  =  MaxEuelAvail 
End  With 

'  tanker2  Calculates  the  Maximum  Euel  Available  and  enters  into  form  and  Data 
Worksheet 

MaxEuelAvail2  =  ElowInt2  *  OffloadAvail2 
With  MaxEuelAvailBox2 

MaxEuelAvailBox2  =  MaxEuelAvail2 
End  With 
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'  tankerS  Calculates  the  Maximum  Fuel  Available  and  enters  into  form  and  Data 
Worksheet 

MaxFuelAvaiB  =  FlowIntS  *  OffloadAvaiB 
With  MaxFuelAvailBoxS 

MaxFuelAvailBoxS  =  MaxFuelAvaiB 
End  With 
End  Sub 

Private  Sub  CmdCaleMissionReq_Cliek() 

'  Uses  data  from  Offload  Required  and  Offload  Available  to  ealeulate  the  missions 
required 

'  Calls  Subroutine  to  eheek  inputs  and  ensure  users  inputs  assigned  to  a  variable 
BoxCheck  =  0 

Call  CheekInputsMissionReq 
If  BoxCheek  =  1  Then 
Exit  Sub 
End  If 

'  Caleulates  Mission  Required  and  enters  the  required,  available  and  missions  into  the 
form  and  onto  the  data  sheet 
If  OffloadAvail  =  0  Then 

MsgBox  "Can  not  ealeulate  the  number  of  missions  required  if  the  offload  available 
is  0.  Please  enter  a  number." 

Exit  Sub 
End  If 

MissionReq  =  Applieation.RoundUp(OffloadReq  /  OffloadAvailTTTBox,  0) 

With  MissionReqBox 

MissionReqBox  =  MissionReq 
End  With 

'  ThisWorkbook.Worksheets("Tanker  Employment").Aetivate  **Used  for  eheek, 
delete  later** 

End  Sub 

Private  Sub  CmdCaleOffloadAvail_Cliek() 

'  Calls  user  form  to  enter  Distanee,  TAS,Puel  Plow,  Total  Puel,  Puel  Reserve 

'  The  form  then  eaeulates  and  sets  the  offload  available  in  the  main  form  and  on  the  data 

sheet 

InputPuelAvailData.Show 
With  OffloadAvailBox 

OffloadAvailBox  =  OffloadAvail 
End  With 

With  OffloadAvailBox! 

OffloadAvailBox!  =  OffloadAvail! 

End  With 
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With  OffloadAvailBoxS 

OffloadAvailBoxS  =  OffloadAvaiB 
End  With 

End  Sub 


Private  Sub  CmdCalcOffloadReq_Click() 

'  Calls  user  form  to  enter  Distanee,  TAS,Euel  Elow,  Total  Euel,  Euel  Reserve 
'  The  form  then  caeulates  and  sets  the  offload  required  in  the  form  and  on  the  data  sheet 
InputEuelReqData.Show 
With  OffloadReqBox 

OffloadReqBox  =  OffloadReq 
End  With 

With  OrigninalOffloadReqBox 

OrigninalOffloadReqBox  =  OffloadReq 
End  With 

'  Mini  proceedure  to  automatieally  caleulate  mission  required,  ***not  working  yet*** 

'  Onee  Offload  required  is  entered,  will  eheek  to  see  if  Offload  Available  has  been 
entered 

'  If  both  have  been  entered,  will  call  the  calculate  missions  required 
'  If  IsNumeric(OffloadAvail)  Then 

'  MissionReq  =  OffloadReq  /  OffloadAvail 

'  With  MissionReqBox 

'  MissionReqBox  =  MissionReq 
'  End  With 

'  End  If 
End  Sub 

Private  Sub  CmdCalcRTPT_Click() 

'  Prompt  to  see  if  user  would  like  to  enter  general  estimate  for  round  trip  flying  time 
'  Otherwises,  sends  user  to  form  to  enter  data  for  round  trip  flying  time 
Result  =  0 

If  TrackRTETEnter  =  I  Then 

Result  =  MsgBox("Would  you  like  to  use  the  Round  Trip  Elying  Time  data  entered 
from  "  _ 

&  "calculating  the  offload  fuel  available  from  above?",  _ 
vbYesNo,  "Use  Previous  Data  for  RTET?") 

If  Result  =  6  Then 

RTET  =  RoundNear(RTET,  0.1) 

RTETBox  =  RTET 

RTET2  =  RoundNear(RTET2,  0.1) 

RTETBox2  =  RTET2 

RTET3  =  RoundNear(RTET3,  0.1) 
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RTFTBoxS  =  RTFT3 
Exit  Sub 
End  If 
End  If 

'  Calls  user  form  to  enter  Distance,  TAS,  and  Time  at  Refuel  Point  for  each  leg  of  trip 
'  The  form  then  caculates  and  sets  the  Round  Trip  Elying  Time 
InputEirstRTETData.Show 
RTET  =  RoundNear(RTFT,  0.1) 

With  RTETBox 
RTETBox  =  RTFT 
End  With 

RTET2  =  RoundNear(RTET2,  0.1) 

With  RTETBox2 
RTETBox2  =  RTET2 
End  With 

RTET3  =  RoundNear(RTET3,  0.1) 

With  RTETBox3 
RTETBox3  =  RTFT3 
End  With 

End  Sub 


Private  Sub  CmdCalcRTFT3_Click() 

End  Sub 

Private  Sub  CmdCalcStationInt_Click() 

'  Eirst  checks  to  ensure  user  has  entered  Total  Ground  Time,  Offload  required 
'  And  Tanker  Euel  Used  (in  Offload  Availalble  form)  for  calculations 
With  TotalGroundTimeBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "The  Total  Ground  Time  is  require  to  calculate  the  Sortie  Generation 
using  base  inputs,"  _ 

&  "  please  enter  a  nonnumeric  value." 

.SetEocus 
Exit  Sub 
End  If 

TotalGroundTime  =  TotalGroundTimeBox 
If  RTET  <  0  Then 

MsgBox  "The  Total  Ground  Time  is  require  to  calculate  Sortie  Generation  using 
base  inputs,"  _ 

&  "  please  enter  a  nonnegative  value." 
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•SetFocus 
Exit  Sub 
End  If 
End  With 

With  OffloadReqBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "The  Offload  Required  by  Receivers  is  require  to  calculate  the  Sortie  " 
&  "Generation  using  base  inputs,  please  enter  a  nonnumeric  value." 

.SetEocus 
Exit  Sub 
End  If 

TotalGroundTime  =  TotalGroundTimeBox 
If  RTET  <  0  Then 

MsgBox  "The  Offload  Required  by  Receivers  is  require  to  calculate  Sortie 
Generation  "  _ 

&  "using  base  inputs,  please  enter  a  nonnegative  value." 

.SetEocus 
Exit  Sub 
End  If 
End  With 

'  tanker2  Eirst  checks  to  ensure  user  has  entered  Total  Ground  Time,  Offload  required 
'  And  Tanker  Euel  Used  (in  Offload  Availalble  form)  for  calculations 
With  TotalGroundTimeBox! 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "The  Total  Ground  Time  is  require  to  calculate  the  Sortie  Generation 
using  base  inputs,"  _ 

&  "  please  enter  a  nonnumeric  value." 

.SetEocus 
Exit  Sub 
End  If 

TotalGroundTime!  =  TotalGroundTimeBox! 

If  RTET2  <  0  Then 

MsgBox  "The  Total  Ground  Time  is  require  to  calculate  Sortie  Generation  using 
base  inputs,"  _ 

&  "  please  enter  a  nonnegative  value." 

.SetEocus 
Exit  Sub 
End  If 
End  With 

With  OffloadReqBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "The  Offload  Required  by  Receivers  is  require  to  calculate  the  Sortie  " 
&  "Generation  using  base  inputs,  please  enter  a  nonnumeric  value." 

.SetEocus 
Exit  Sub 
End  If 
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TotalGroundTime2  =  TotalGroundTimeBox2 
If  RTFT2  <  0  Then 

MsgBox  "The  Offload  Required  by  Reeeivers  is  require  to  calculate  Sortie 
Generation "  _ 

&  "using  base  inputs,  please  enter  a  nonnegative  value." 

•SetFocus 
Exit  Sub 
End  If 
End  With 

'  tankerS  Eirst  checks  to  ensure  user  has  entered  Total  Ground  Time,  Offload  required 
'  And  Tanker  Euel  Used  (in  Offload  Availalble  form)  for  calculations 
With  TotalGroundTimeBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "The  Total  Ground  Time  is  require  to  calculate  the  Sortie  Generation 
using  base  inputs,"  _ 

&  "  please  enter  a  nonnumeric  value." 

.SetEocus 
Exit  Sub 
End  If 

TotalGroundTimeS  =  TotalGroundTimeBoxS 
If  RTET3  <  0  Then 

MsgBox  "The  Total  Ground  Time  is  require  to  calculate  Sortie  Generation  using 
base  inputs,"  _ 

&  "  please  enter  a  nonnegative  value." 

.SetEocus 
Exit  Sub 
End  If 
End  With 

With  OffloadReqBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "The  Offload  Required  by  Receivers  is  require  to  calculate  the  Sortie  " 
&  "Generation  using  base  inputs,  please  enter  a  nonnumeric  value." 

.SetEocus 
Exit  Sub 
End  If 

TotalGroundTimeS  =  TotalGroundTimeBoxS 
If  RTET3  <  0  Then 

MsgBox  "The  Offload  Required  by  Receivers  is  require  to  calculate  Sortie 
Generation  "  _ 

&  "using  base  inputs,  please  enter  a  nonnegative  value." 

.SetEocus 
Exit  Sub 
End  If 
End  With 

'  Calls  form  to  enter  the  base  generation  capability 
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InputBaseIntData.  Show 

Baseint  =  RoundNear(BaseInt,  0.1) 
With  BaseIntBox 

BaseIntBox  =  Baseint 
End  With 

Baselnt2  =  RoundNear(BaseInt2,  0.1) 
With  BaseIntBox2 

BaseIntBox2  =  Baselnt2 
End  With 

BaseIntS  =  RoundNear(BaseInt3,  0.1) 
With  BaseIntBoxS 
BaseIntBoxS  =  BaseIntS 
End  With 
End  Sub 


Private  Sub  CmdCaneel_Cliek() 

ThisWorkbook.Worksheets("Tanker  Employment").  Aetivate 
Unload  Me 
End  Sub 

Private  Sub  CmdCyeleTime_Cliek() 

'  Uses  data  from  RTET  and  Total  Ground  Time  information  to  ealeulate  the  Cyele  Time 
'  Eirst  eheeks  to  ensure  data  for  RTET  and  Total  Ground  Time  has  been  entered 
With  RTETBox 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Round  Trip  Plying  Time  first." 
.SetPoeus 
Exit  Sub 
End  If 

RTET  =  RTETBox 
If  RTET  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Round  Trip  Plying  Time." 
.SetPoeus 
Exit  Sub 
End  If 
End  With 

With  TotalGroundTimeBox 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Total  Ground  Time  first." 
.SetPoeus 
Exit  Sub 
End  If 

TotalGroundTime  =  TotalGroundTimeBox 
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If  TotalGroundTime  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Total  Ground  Time." 
•SetFocus 
Exit  Sub 
End  If 
End  With 

With  RTETBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Round  Trip  Plying  Time  first." 
.SetPocus 
Exit  Sub 
End  If 

RTPT2  =  RTPTBox2 
If  RTPT2  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Round  Trip  Plying  Time." 
.SetPocus 
Exit  Sub 
End  If 
End  With 

With  TotalGroundTimeBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Total  Ground  Time  first." 
.SetPocus 
Exit  Sub 
End  If 

TotalGroundTime2  =  TotalGroundTimeBox2 
If  TotalGroundTime2  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Total  Ground  Time." 
.SetPocus 
Exit  Sub 
End  If 
End  With 

With  RTPTBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Round  Trip  Plying  Time  first." 
.SetPocus 
Exit  Sub 
End  If 

RTPT3  =  RTPTBoxS 
If  RTPT3  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Round  Trip  Plying  Time." 
.SetPocus 
Exit  Sub 
End  If 
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End  With 

With  TotalGroundTimeBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Total  Ground  Time  first." 
.SetFocus 
Exit  Sub 
End  If 

TotalGroundTimeS  =  TotalGroundTimeBoxS 
If  TotalGroundTimeS  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Total  Ground  Time." 
.SetFocus 
Exit  Sub 
End  If 
End  With 

'  Calculates  the  Cycle  Time 

CycleTime  =  RTFT  +  TotalGroundTime 
CycleTime2  =  RTFT2  +  TotalGroundTime2 
CycleTimeS  =  RTFT3  +  TotalGroundTimeS 
'  Enters  the  cycle  time  into  the  form 

CycleTime  =  RoundNear( CycleTime,  0.1) 

With  CycleTimeBox 

CycleTimeBox  =  CycleTime 
End  With 

CycleTime2  =  RoundNear(CycleTime2,  0.1) 

With  CycleTimeBox2 

CycleTimeBox2  =  CycleTime2 
End  With 

CycleTimeS  =  RoundNear(CycleTime3,  0.1) 

With  CycleTimeBox3 

CycleTimeBox3  =  CycleTime3 
End  With 
End  Sub 

Private  Sub  CmdDone_Click() 

'  Informs  user  clicking  button  will  erase  and  shut  form,  and  ensures  user  wishes  to 
continue 

Result  =  MsgBox("This  will  close  the  form,  erasing  all  data."  &  vbCrEf  _ 

&  vbCrEf  &  "Do  you  want  to  continue  closing  this  form?",  _ 
vbYesNo,  "Close  Forms") 

If  Result  =  6  Then 

ThisWorkbook.Worksheets("Tanker  Employment").  Activate 
Unload  Me 

Unload  InputFuelReqData 
Unload  InputFuelAvailData 
Unload  InputFirstRTFTData 
Unload  InputAdditionalRTFTData 
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Unload  InputFinalRTFTData 
Unload  InputGroundTimeData 
Unload  InputAircrewIntData 
Unload  InputBaseIntData 
TrackRTFTEnter  =  0 
ReturnToForm  =  0 

'  Unload  InputAircraftIntData  ***  Hiding  this  command  til  debugged. 

'  (Will  only  unload  if  data  had  been  entered  into  form,  otherwise  hits  a  bug) 
Else 

Exit  Sub 
End  If 
End  Sub 


Private  Sub  CmdInstruetions_Cliek() 

'  Calls  the  form  to  give  instructions  to  the  user 
InstruetionsPg  1 .  Show 
End  Sub 

Private  Sub  Cmdprint_Click() 

Maininput.  PrintE  orm 
End  Sub 

Private  Sub  CmdTotalGroundTime_Cliek() 

Dim  Result  As  Integer 

'  Calls  form  to  enter  total  ground  time 

InputGroundT  imeData.  Show 

With  TotalGroundTimeBox 

TotalGroundTimeBox  =  TotalGroundTime 
End  With 

With  TotalGroundTimeBox! 

TotalGroundTimeBox!  =  TotalGroundTime! 
End  With 

With  TotalGroundTimeBox! 

TotalGroundTimeBox!  =  TotalGroundTime! 
End  With 
End  Sub 


Sub  InputTotalGroundTimeO 
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End  Sub 


Sub  CheckInputsMaxFuelO 

'  Ensures  Offload  Available  and  the  aircraft,  aircrew  and  stations  intervals  have  been 
entered 

With  OffloadAvailBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "A  numerical  number  for  Offload  Available  is  required  to  calculate  the 
Maximum  Fuel  Available." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

OffloadAvail  =  OffloadAvailBox 
If  OffloadReq  <  0  Then 

MsgBox  "That  Offload  Available  should  be  a  nonnegative  value  in  order  to 
calculate  the  Maximum  Fuel  Available." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  AircraftIntBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "A  numerical  number  for  Aircraft  Sortie  Generation  rate"  &  _ 

"  is  required  to  calculate  the  Maximum  Fuel  Available." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

Aircraftint  =  AircraftIntBox 
If  OffloadReq  <  0  Then 

MsgBox  "That  Aircraft  Sortie  Generation  rate  should  be  a  "  &  _ 

"nonnegative  value  in  order  to  calculate  the  Maximum  Fuel  Available." 
.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  AircrewIntBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "A  numerical  number  for  Aircrew  Sortie  Generation  rate"  &  _ 

"  is  required  to  calculate  the  Maximum  Fuel  Available." 
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•SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

Aircrewint  =  AircrewIntBox 
If  OffloadReq  <  0  Then 

MsgBox  "That  Aircrew  Sortie  Generation  rate  should  be  a  "  &  _ 

"nonnegative  value  in  order  to  calculate  the  Maximum  Euel  Available." 
•SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 
With  BaseIntBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "A  numerical  number  for  Base  Sortie  Generation  rate"  &  _ 

"  is  required  to  calculate  the  Maximum  Euel  Available." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

Baseint  =  BaseIntBox 
If  OffloadReq  <  0  Then 

MsgBox  "The  Base  Sortie  Generation  rate  should  be  a  "  &  _ 

"nonnegative  value  in  order  to  calculate  the  Maximum  Euel  Available." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

'tanker2 

'  Ensures  Offload  Available  and  the  aircraft,  aircrew  and  stations  intervals  have  been 
entered 

With  OffloadAvailBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "A  numerical  number  for  Offload  Available  is  required  to  calculate  the 
Maximum  Euel  Available." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

OffloadAvail2  =  OffloadAvailBox2 
If  OffloadReq  <  0  Then 

MsgBox  "That  Offload  Available  should  be  a  nonnegative  value  in  order  to 
calculate  the  Maximum  Euel  Available." 


98 


•SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  AircraftIntBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "A  numerical  number  for  Aircraft  Sortie  Generation  rate"  &  _ 

"  is  required  to  calculate  the  Maximum  Euel  Available." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

Aircraftlnt2  =  AircraftIntBox2 
If  OffloadReq  <  0  Then 

MsgBox  "That  Aircraft  Sortie  Generation  rate  should  be  a  "  &  _ 

"nonnegative  value  in  order  to  calculate  the  Maximum  Euel  Available." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  AircrewIntBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "A  numerical  number  for  Aircrew  Sortie  Generation  rate"  &  _ 

"  is  required  to  calculate  the  Maximum  Euel  Available." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

Aircrewlnt2  =  AircrewIntBox2 
If  OffloadReq  <  0  Then 

MsgBox  "That  Aircrew  Sortie  Generation  rate  should  be  a  "  &  _ 

"nonnegative  value  in  order  to  calculate  the  Maximum  Euel  Available." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 
With  BaseIntBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "A  numerical  number  for  Base  Sortie  Generation  rate"  &  _ 

"  is  required  to  calculate  the  Maximum  Euel  Available." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
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End  If 

Baselnt2  =  BaseIntBox2 
If  OffloadReq  <  0  Then 

MsgBox  "The  Base  Sortie  Generation  rate  should  be  a  "  &  _ 

"nonnegative  value  in  order  to  calculate  the  Maximum  Fuel  Available." 
•SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

'tankerS 

'  Ensures  Offload  Available  and  the  aircraft,  aircrew  and  stations  intervals  have  been 
entered 

With  OffloadAvailBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "A  numerical  number  for  Offload  Available  is  required  to  calculate  the 
Maximum  Fuel  Available." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

OffloadAvaiB  =  OffloadAvailBoxS 
If  OffloadReq  <  0  Then 

MsgBox  "That  Offload  Available  should  be  a  nonnegative  value  in  order  to 
calculate  the  Maximum  Fuel  Available." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  AircraftIntBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "A  numerical  number  for  Aircraft  Sortie  Generation  rate"  &  _ 

"  is  required  to  calculate  the  Maximum  Fuel  Available." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

AircraftIntS  =  AircraftlntBoxS 
If  OffloadReq  <  0  Then 

MsgBox  "That  Aircraft  Sortie  Generation  rate  should  be  a  "  &  _ 

"nonnegative  value  in  order  to  calculate  the  Maximum  Fuel  Available." 
.SetFocus 
BoxCheck  =  1 
Exit  Sub 
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End  If 
End  With 

With  AircrewIntBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "A  numerieal  number  for  Airerew  Sortie  Generation  rate"  &  _ 

"  is  required  to  ealeulate  the  Maximum  Euel  Available." 

.SetEoeus 
BoxCheck  =  1 
Exit  Sub 
End  If 

AirerewIntS  =  AirerewIntBoxS 
If  OffloadReq  <  0  Then 

MsgBox  "That  Airerew  Sortie  Generation  rate  should  be  a  "  &  _ 

"nonnegative  value  in  order  to  ealeulate  the  Maximum  Euel  Available." 
.SetEoeus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 
With  BaseIntBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "A  numerical  number  for  Base  Sortie  Generation  rate"  &  _ 

"  is  required  to  calculate  the  Maximum  Euel  Available." 

.SetEoeus 
BoxCheck  =  1 
Exit  Sub 
End  If 

BaseIntS  =  BaseIntBoxS 
If  OffloadReq  <  0  Then 

MsgBox  "The  Base  Sortie  Generation  rate  should  be  a  "  &  _ 

"nonnegative  value  in  order  to  calculate  the  Maximum  Euel  Available." 
.SetEoeus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 
End  Sub 


Sub  CheckInputsMissionReqO 

'  Eirst  checks  to  ensure  offload  required  and  offload  available  data  has  been  entered 
With  OffloadReqBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Offload  Required." 

.SetEoeus 
BoxCheck  =  1 
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Exit  Sub 
End  If 

OffloadReq  =  OffloadReqBox 
If  OffloadReq  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Offload  Required." 
•SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  OffloadAvailBox 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Offload  Available." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

OffloadAvail  =  OffloadAvailBox 
If  OffloadAvail  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Offload  Available." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

'tanker2  Eirst  eheeks  to  ensure  offload  required  and  offload  available  data  has  been 
entered 

With  OffloadAvailBox! 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Offload  Available." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

OffloadAvail!  =  OffloadAvailBox! 

If  OffloadAvail!  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Offload  Available." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  OffloadAvailBox! 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Offload  Available." 
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•SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

OffloadAvaiB  =  OffloadAvailBoxS 
If  OffloadAvaiB  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Offload  Available." 
•SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 


End  Sub 


Private  Sub  maxboommissionbox_Change() 
End  Sub 

Private  Sub  CmdTotalGroundTime2_Click() 
End  Sub 


Private  Sub  maxboomtankertypebox_Change() 
End  Sub 

Private  Sub  Eabel2_Click() 

End  Sub 

Private  Sub  MinMissionPrame_Click() 

End  Sub 

Private  Sub  MissionReqBox_Change() 
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End  Sub 


Private  Sub  OffloadAvailBox_Change() 

End  Sub 

Private  Sub  OffloadAvailBox2_Change() 

End  Sub 

Private  Sub  OffloadAvailBox3_Change() 

End  Sub 

Private  Sub  OffloadAvailTTl_Cliek() 

With  OffloadAvailTTlBox 

OffloadAvailTTlBox  =  OffloadAvailBox  *  aircraft  1  count 
End  With 

With  OffloadAvailTT2Box 

OffloadAvailTT2Box  =  OffloadAvailBox2  *  aircraft2count 
End  With 

With  OffloadAvailTTSBox 

OffloadAvailTTSBox  =  OffloadAvailBoxS  *  aircrafts  count 
End  With 

With  OffloadAvailTTlBox 

OffloadAvailTTTBox  =  OffloadAvailTTlBox  *  1  +  1  *  OffloadAvailTT2Box  +  1  * 
OffloadAvailTTSBox 
End  With 
With  aircrafttcount 

aircrafttcount  =  aircraft  1  count  *  1  +  aircraft2count  *  1  +  aircrafts  count  *  1 
End  With 


End  Sub 


Private  Sub  OffloadAvailTTlBox_Change() 


End  Sub 

Private  Sub  RTPTBox_Change() 
End  Sub 
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Private  Sub  RTFTBox2_Change() 
End  Sub 

Private  Sub  TextBoxl3_Change() 
End  Sub 

Private  Sub  TextBoxl9_Change() 
End  Sub 

Private  Sub  TextBox24_Change() 
End  Sub 

Private  Sub  TextBox6_Change() 
End  Sub 

Private  Sub  TextBox7_Change() 
End  Sub 

Private  Sub  EiserPorm_Click() 
End  Sub 
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Option  Explicit 

Dim  TempDistance  As  Long,  TempBlockSpeed  As  Long,  TempTimeatPoint  As  Variant, 

BoxCheck  As  Integer,  LegTime  As  Variant,  LuelBum  As  Long,  LuelUse  As  Long, 
TempDistance2  As  Long,  _ 

BoxCheck2  As  Integer,  TempBlockSpeed2  As  Long,  TempTimeatPoint2  As  Variant, 
TempDistanceS  As  Long,  BoxCheckS  As  Integer,  TempBlockSpeedS  As  Long,  _ 
TempTimeatPointS  As  Variant 
'  not  needed  TempQEfficiency  As  Variant, 

Private  Sub  CancelCommandButton_Click() 

Unload  Me 
End  Sub 

Private  Sub  cmdContinueWithRTPT_Click() 

Dim  Result  As  Integer 
'  Calls  subroutine  to  check  if  inputs  are  valid 
BoxCheck  =  0 
Call  Checkinputs 
If  BoxCheck  =  I  Then 
Exit  Sub 
End  If 
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'  Calls  subroutine  to  calculate  Round  Trip  Flying  Time 
Call  CalculateRTFT 

'  Prompts  to  see  if  user  would  like  to  add  an  additional  leg  to  the  trip 
'  If  not,  continues  on  to  return  leg 

Result  =  MsgBox("Do  you  want  to  add  another  leg  to  the  mision?",  _ 
vbYesNo,  "Add  Additional  Legs  to  the  Mission?") 

If  Result  =  6  Then 

'  Sets  the  input  row  so  that  additional  rows  of  info  may  be  added  on  the  data  worksheet 
InputAdditionalRTFTData.Show 
Else 

InputFinalRTFTData.Show 
End  If 

'Unload  the  form 
Unload  Me 
End  Sub 

Sub  CheckInputsO 

'  Checks  to  ensure  users  inputs  are  numeric 

'  Assigns  users  inputs  to  temporary  variables  used  to  calculate  Round  Trip  Elying  Time 
With  DistanceBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  distance." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempDistance  =  DistanceBox 
If  TempDistance  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  distance." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  BlockSpeedBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  True  Air  Speed." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempBlockSpeed  =  BlockSpeedBox 
If  TempBlockSpeed  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  True  Air  Speed." 

.SetEocus 
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BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  TimeatPointBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  EuelElow." 

•SetEocus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempTimeatPoint  =  TimeatPointBox 
If  TempTimeatPoint  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Average  Euel  Burn  Rate." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

If  HoursOption  =  Ealse  And  MinutesOption  =  Ealse  Then 
MsgBox  "Please  indicate  if  the  time  is  in  hours  or  minutes." 

BoxCheck  =  1 
Exit  Sub 

Elself  MinutesOption  =  True  Then 

TempTimeatPoint  =  TempTimeatPoint  \  60 
End  If 

'  With  QEfficiencyBox 

'  If  .Value  =  ""  Or  Not  IsNumeric(.Value)  Then 

'  MsgBox  "Please  enter  a  numeric  value  for  the  Receivers'  Efficiency." 

'  BoxCheck  =  1 

'  .SetEocus 

'  Exit  Sub 

'  End  If 

'  TempQEfficiency  =  QEfficiencyBox 

'  If  TempQEfficiency  <  0  Or  TempQEfficiency  >  1  Then 

'  MsgBox  "Please  enter  a  number  between  0  and  1  for  the  base's  Receivers' 

Efficiency." 

'  BoxCheck  =  1 

'  .SetEocus 

'  Exit  Sub 

'  End  If 
'  End  With 
'tanker2 

With  DistanceBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  distance." 
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•SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempDistance2  =  DistanceBox2 
If  TempDistance2  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  distanee." 

•SetEocus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  BloekSpeedBox2 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  True  Air  Speed." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempBlockSpeed2  =  BlockSpeedBox2 
If  TempBlockSpeed  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  True  Air  Speed." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  TimeatPointBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  EuelElow." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempTimeatPoint2  =  TimeatPointBox2 
If  TempTimeatPoint  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Average  Euel  Burn  Rate." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

If  HoursOption  =  Ealse  And  MinutesOption  =  Ealse  Then 
MsgBox  "Please  indicate  if  the  time  is  in  hours  or  minutes." 

BoxCheck  =  1 
Exit  Sub 
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Elself  MinutesOption  =  True  Then 

TempTimeatPoint2  =  TempTimeatPoint2  \  60 
End  If 

'  With  QEfflcieneyBox 

'  If  .Value  =  ""  Or  Not  IsNumerie(.Value)  Then 

'  MsgBox  "Please  enter  a  numerie  value  for  the  Reeeivers'  Effieieney." 

'  BoxCheek  =  1 

'  .SetEoeus 

'  Exit  Sub 

'  End  If 

'  TempQEffieiency  =  QEffieieneyBox 

'  If  TempQEfficieney  <  0  Or  TempQEffieiency  >  1  Then 

'  MsgBox  "Please  enter  a  number  between  0  and  1  for  the  base's  Receivers' 

Efficiency." 

'  BoxCheek  =  1 

'  .SetEoeus 

'  Exit  Sub 

'  End  If 
'  End  With 

'tanker  3 

With  DistanceBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  distance." 

.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempDistanceS  =  DistanceBoxS 
If  TempDistanceS  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  distance." 

.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  BlockSpeedBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  True  Air  Speed." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempBlockSpeedS  =  BlockSpeedBoxS 
If  TempBlockSpeedS  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  True  Air  Speed." 
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•SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  TimeatPointBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  EuelElow." 

•SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempTimeatPointS  =  TimeatPointBoxS 
If  TempTimeatPointS  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Average  Euel  Burn  Rate." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

If  HoursOption  =  Ealse  And  MinutesOption  =  Ealse  Then 
MsgBox  "Please  indicate  if  the  time  is  in  hours  or  minutes." 

BoxCheck  =  1 
Exit  Sub 

Elself  MinutesOption  =  True  Then 

TempTimeatPointS  =  TempTimeatPointS  \  60 
End  If 

'  With  QEfflciencyBox 

'  If  .Value  =  ""  Or  Not  IsNumeric(.Value)  Then 

'  MsgBox  "Please  enter  a  numeric  value  for  the  Receivers'  Efficiency." 

'  BoxCheck  =  1 

'  .SetEocus 

'  Exit  Sub 

'  End  If 

'  TempQEfficiency  =  QEfficiencyBox 

'  If  TempQEfficiency  <  0  Or  TempQEfficiency  >  1  Then 

'  MsgBox  "Please  enter  a  number  between  0  and  1  for  the  base's  Receivers' 

Efficiency." 

'  BoxCheck  =  1 

'  .SetEocus 

'  Exit  Sub 

'  End  If 
'  End  With 
End  Sub 

Sub  CalculateRTETO 
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'Calculate  Round  Trip  Flying  Time 
RTFT  =  (TempDistanee  /  TempBloekSpeed  +  TempTimeatPoint)  '  * 
TempQEffieiency 

RTFT2  =  (TempDistanee2  /  TempBloekSpeed2  +  TempTimeatPoint2)  '  * 
TempQEfficieney 

RTET3  =  (TempDistanceS  /  TempBloekSpeedS  +  TempTimeatPointS)  '  * 
TempQEffieiency 
End  Sub 


Private  Sub  CmdInstruetions_Cliek() 
InstructionsRTET .  Show 
End  Sub 

Private  Sub  DistaneeBox_Change() 
End  Sub 

Private  Sub  TextBox3_Change() 

End  Sub 

Private  Sub  UserPorm_Cliek() 

End  Sub 
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Option  Explicit 

Dim  TempDistance  As  Long,  TempBlockSpeed  As  Long,  TempTimeatPoint  As  Variant, 

BoxCheck  As  Integer,  LegTime  As  Variant,  LuelBum  As  Long,  LuelUse  As  Long, 
TempDistance2  As  Long,  _ 

BoxCheck2  As  Integer,  TempBlockSpeed2  As  Long,  TempTimeatPoint2  As  Variant, 
TempDistanceS  As  Long,  BoxCheckS  As  Integer,  TempBlockSpeedS  As  Long,  _ 
TempTimeatPointS  As  Variant 
'  not  needed  TempQEfficiency  As  Variant, 

Private  Sub  CancelCommandButton_Click() 

Unload  Me 
End  Sub 

Private  Sub  cmdContinueWithRTPT_Click() 

Dim  Result  As  Integer 
'  Calls  subroutine  to  check  if  inputs  are  valid 
BoxCheck  =  0 
Call  Checkinputs 
If  BoxCheck  =  I  Then 
Exit  Sub 
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End  If 

'  Calls  subroutine  to  calculate  Round  Trip  Flying  Time 
Call  CalculateRTFT 

'  Prompts  to  see  if  user  would  like  to  add  an  additional  leg  to  the  trip 
'  If  not,  continues  on  to  return  leg 

Result  =  MsgBox("Do  you  want  to  add  another  leg  to  the  mision?",  _ 
vbYesNo,  "Add  Additional  Fegs  to  the  Mission?") 

If  Result  =  6  Then 

'  Sets  the  input  row  so  that  additional  rows  of  info  may  be  added  on  the  data  worksheet 
InputAdditionalRTFTData.Show 
Else 

InputFinalRTFTData.Show 
End  If 

'Unload  the  form 
Unload  Me 
End  Sub 

Sub  CheckInputsO 

'  Checks  to  ensure  users  inputs  are  numeric 

'  Assigns  users  inputs  to  temporary  variables  used  to  calculate  Round  Trip  Flying  Time 
With  DistanceBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  distance." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempDistance  =  DistanceBox 
If  TempDistance  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  distance." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  BlockSpeedBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  True  Air  Speed." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempBlockSpeed  =  BlockSpeedBox 
If  TempBlockSpeed  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  True  Air  Speed." 
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•SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  TimeatPointBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  EuelElow." 

•SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempTimeatPoint  =  TimeatPointBox 
If  TempTimeatPoint  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Average  Euel  Burn  Rate." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

If  HoursOption  =  Ealse  And  MinutesOption  =  Ealse  Then 
MsgBox  "Please  indicate  if  the  time  is  in  hours  or  minutes." 

BoxCheck  =  1 
Exit  Sub 

Elself  MinutesOption  =  True  Then 

TempTimeatPoint  =  TempTimeatPoint  \  60 
End  If 

'  With  QEfflciencyBox 

'  If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

'  MsgBox  "Please  enter  a  numeric  value  for  the  Receivers'  Efficiency." 

'  BoxCheck  =  1 

'  .SetEocus 

'  Exit  Sub 

'  End  If 

'  TempQEfficiency  =  QEfficiencyBox 

'  If  TempQEfficiency  <  0  Or  TempQEfficiency  >  1  Then 

'  MsgBox  "Please  enter  a  number  between  0  and  1  for  the  base's  Receivers' 

Efficiency." 

'  BoxCheck  =  1 

'  .SetEocus 

'  Exit  Sub 

'  End  If 
'  End  With 
'tanker2 

With  DistanceBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 
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MsgBox  "Please  enter  a  numerie  value  for  the  distanee." 

•SetFoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempDistanee2  =  DistaneeBox2 
If  TempDistanee2  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  distanee." 

•SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  BloekSpeedBox2 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  True  Air  Speed." 

.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempBloekSpeed2  =  BloekSpeedBox2 
If  TempBloekSpeed  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  True  Air  Speed." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  TimeatPointBox2 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  EuelElow." 

.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempTimeatPomt2  =  TimeatPomtBox2 
If  TempTimeatPoint  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Average  Euel  Burn  Rate." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

If  HoursOption  =  Ealse  And  MinutesOption  =  Ealse  Then 
MsgBox  "Please  indieate  if  the  time  is  in  hours  or  minutes." 

BoxCheek  =  1 
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Exit  Sub 

Elself  MinutesOption  =  True  Then 

TempTimeatPoint2  =  TempTimeatPoint2  \  60 
End  If 

'  With  QEfficieneyBox 

'  If  .Value  =  ""  Or  Not  IsNumerie(. Value)  Then 

'  MsgBox  "Please  enter  a  numerie  value  for  the  Reeeivers'  Effieieney." 

'  BoxCheek  =  1 

'  .SetEocus 

'  Exit  Sub 

'  End  If 

'  TempQEffieieney  =  QEfficieneyBox 

'  If  TempQEffieieney  <  0  Or  TempQEffieieney  >  1  Then 

'  MsgBox  "Please  enter  a  number  between  0  and  1  for  the  base's  Receivers' 

Efficiency." 

'  BoxCheek  =  1 

'  .SetEocus 

'  Exit  Sub 

'  End  If 
'  End  With 

'tanker  3 

With  DistanceBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  distance." 

.SetEocus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempDistanceS  =  DistanceBoxS 
If  TempDistanceS  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  distance." 

.SetEocus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  BlockSpeedBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  True  Air  Speed." 
.SetEocus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempBlockSpeedS  =  BlockSpeedBoxS 
If  TempBlockSpeedS  <  0  Then 
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MsgBox  "Please  enter  a  nonnegative  value  for  the  True  Air  Speed." 
•SetFoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  TimeatPointBoxS 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  EuelElow." 

.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempTimeatPointS  =  TimeatPointBoxS 
If  TempTimeatPointS  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Average  Euel  Burn  Rate." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

If  HoursOption  =  Ealse  And  MinutesOption  =  Ealse  Then 
MsgBox  "Please  indieate  if  the  time  is  in  hours  or  minutes." 

BoxCheek  =  1 
Exit  Sub 

Elself  MinutesOption  =  True  Then 

TempTimeatPointS  =  TempTimeatPointS  \  60 
End  If 

'  With  QEffieieneyBox 

'  If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

'  MsgBox  "Please  enter  a  numerie  value  for  the  Reeeivers'  Effieieney." 

'  BoxCheek  =  1 

'  .SetEoeus 

'  Exit  Sub 

'  End  If 

'  TempQEffieieney  =  QEffieieneyBox 

'  If  TempQEffioienoy  <  0  Or  TempQEffioienoy  >  I  Then 

'  MsgBox  "Please  enter  a  number  between  0  and  1  for  the  base's  Reeeivers' 

Effieieney." 

'  BoxCheek  =  1 

'  .SetEoeus 

'  Exit  Sub 

'  End  If 
'  End  With 
End  Sub 
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Sub  CalculateRTFTQ 
'Calculate  Round  Trip  Flying  Time 
RTFT  =  (TempDistance  /  TempBlockSpeed  +  TempTimeatPoint)  '  * 
TempQEfficiency 

RTFT2  =  (TempDistance2  /  TempBloekSpeed2  +  TempTimeatPoint2)  '  * 
TempQEffieiency 

RTET3  =  (TempDistanceS  /  TempBlockSpeedS  +  TempTimeatPointS)  '  * 
TempQEfficiency 
End  Sub 


Private  Sub  CmdInstructions_Click() 
InstructionsRTET .  Show 
End  Sub 

Private  Sub  DistanceBox_Change() 
End  Sub 

Private  Sub  TextBox3_Change() 

End  Sub 

Private  Sub  UserPorm_Click() 

End  Sub 
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Input  Next  Leg  for  Round  Trip  Flying  Time  Data 


Additional  refueling  points  calculations  require  distance  to  the  refueling  point 
(in  nautical  miles),  air  speed  to  the  point  (in  nautical  miles  per  hour),  and  time 
spent  at  the  refueling  point.  Once  finish^,  add  another  point  or  continue 
using  the  appropriate  button.  Canceling  will  not  record  data  currently  on  this 
form,  but  will  keep  any  previously  calculated  RTFT  data. 


Tanker  1 


Tanker  2 


Tanker  3 


Input  Distance  to 

Refuel  Point  (nm) 

r 

r 

r 

Input  Block  Speed  to 
Refuel  Point  (nm/hrs) 

r 

r 

r 

Input  Loiter  Time  at 
Refuel  Point  r  Hours 

r 

r 

r 

^  Minutfis 

Input  Data  for  Additional  Refueling  Point(s) 


Continue  with  RTFT  Calculations 


Cancel 


Option  Explicit 

Dim  TempDistance  As  Single,  TempBlockSpeed  As  Single,  TempTimeatPoint  As 
Variant,  _ 

BoxCheck  As  Integer,  Result  As  Integer,  _ 

LegTime  As  Variant,  FuelUse  As  Long,  FuelBum  As  Long,  _ 

TempDistanoe2  As  Single,  TempBlockSpeed2  As  Single,  TempTimeatPoint2  As 
Variant,  _ 

TempDistanceS  As  Single,  TempBlockSpeedS  As  Single,  TempTimeatPointS  As 
Variant 

'  TempQEffieieney  As  Variant 

Private  Sub  CancelCommandButton_Click() 

Unload  Me 

'  Cheeks  to  see  if  the  user  would  like  to  stop  ealculations  on  RTFT,  or  not  enter  data  for 
'  an  addition  leg 

Result  =  MsgBox("Data  for  the  final  leg  has  not  been  entered  yet.  Do  you  want  to 
complete  the  RTFT  "  &  _ 

"calculations?"  &  vbCrLf  &  vbCrLf  _ 

&  "Select  Yes  to  return  to  main  form.  No  to  proceed  to  inputting  data  for  final  leg", 

vbYesNo,  "End  RTFT  Caleulations?") 

If  Result  =  7  Then 
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InputFinalRTFTData.Show 
End  If 
End  Sub 

Sub  CalculateRTETO 

'  Calculates  current  leg's  Round  Trip  Elying  Time  and  adds  to  previous  legs  times 
RTET  =  (TempDistance  /  TempBlockSpeed  +  TempTimeatPoint  +  RTET)  '  * 
TempQEfficieney 

RTET2  =  (TempDistance2  /  TempBloekSpeed2  +  TempTimeatPoint2  +  RTPT2)  '  * 
TempQEfficieney 

RTET3  =  (TempDistanceS  /  TempBlockSpeedS  +  TempTimeatPointS  +  RTFT3)  '  * 
TempQEfficieney 
End  Sub 

Private  Sub  emdContinueRTPT_Cliek() 

BoxCheck  =  0 

'  Calls  subroutine  to  see  if  each  input  is  a  non  blank,  non  negative  number,  setting  the 
'  variable  BoxCheek  to  1  if  the  input  is  not  proper  format 
Call  Checkinputs 
If  BoxCheck  =  1  Then 
Exit  Sub 
End  If 

'  Calls  subroutine  to  calculate  Round  Trip  Elying  Time 
Call  CalculateRTET 

'  Opens  form  to  input  data  for  return  leg  of  Round  Trip  Elying  Time 
InputE  inalRTETData.  Show 
'Unload  the  form 
Unload  Me 
End  Sub 

Private  Sub  CmdInputAdditionPoints_Cliek() 

'  Calls  subroutine  to  check  if  inputs  are  valid 
BoxCheck  =  0 
Call  Checkinputs 
If  BoxCheck  =  1  Then 
Exit  Sub 
End  If 

'  Calls  subroutine  to  calculate  Round  Trip  Elying  Time 
Call  CalculateRTFT 
'  Resets  form  for  additional  inputs 
DistanceBox  =  "" 

BloekSpeedBox  =  "" 

TimeAtPointBox  =  "" 

DistanoeBox2  =  "" 

BlookSpeedBox2  =  "" 

TimeAtPointBox2  =  "" 
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DistanceBoxS  =  "" 

BlockSpeedBoxS  =  "" 

TimeAtPointBoxS  =  "" 

End  Sub 

Sub  CheckInputsO 

'  Checks  to  ensure  users  inputs  are  numeric 

'  Assigns  users  inputs  to  temporary  variables  used  to  calculate  Round  Trip  Flying  Time 
With  DistanceBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

Result  =  MsgBox("Do  you  want  to  continue  without  adding  an  additional 
refueling  point?",  _ 

vbYesNo,  "Manual  Enter") 

If  Result  =  6  Then 

InputFinalRTFTData.Show 
Unload  Me 
End  If 

MsgBox  "Please  enter  a  numeric  value  for  the  distance." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempDistance  =  DistanceBox 
If  TempDistance  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  distance." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  BlockSpeedBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

Result  =  MsgBox("Do  you  want  to  continue  without  adding  an  additional 
refueling  point?",  _ 

vbYesNo,  "Manual  Enter") 

If  Result  =  6  Then 

InputFinalRTFTData.Show 
Unload  Me 
End  If 

MsgBox  "Please  enter  a  numeric  value  for  the  True  Air  Speed." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempBlockSpeed  =  BlockSpeedBox 
If  TempBlockSpeed  <  0  Then 
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MsgBox  "Please  enter  a  nonnegative  value  for  the  True  Air  Speed." 

•SetFoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  TimeAtPointBox 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

Result  =  MsgBox("Do  you  want  to  eontinue  without  adding  an  additional 
refueling  point?",  _ 

vbYesNo,  "Manual  Enter") 

If  Result  =  6  Then 

InputEinalRTETData.Show 
Unload  Me 
End  If 

MsgBox  "Please  enter  a  numerie  value  for  the  EuelElow." 

.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempTimeatPoint  =  TimeAtPointBox 
If  TempTimeatPoint  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Average  Euel  Burn  Rate." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

If  HoursOption  =  Ealse  And  MinutesOption  =  Ealse  Then 
MsgBox  "Please  indieate  if  the  time  is  in  hours  or  minutes." 

BoxCheek  =  1 
Exit  Sub 

Elself  MinutesOption  =  True  Then 

TempTimeatPoint  =  TempTimeatPoint  \  60 
End  If 

'  With  QEffieieneyBox 

'  If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

'  MsgBox  "Please  enter  a  numerie  value  for  the  Reeeivers'  Effieieney." 

'  BoxCheek  =  1 

'  .SetEoeus 

'  Exit  Sub 

'  End  If 

'  TempQEffieieney  =  QEffieieneyBox 

'  If  TempQEffieieney  <  0  Or  TempQEffieieney  >  1  Then 

'  MsgBox  "Please  enter  a  number  between  0  and  1  for  the  Reeeivers'  Effieieney." 
'  BoxCheek  =  1 
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'  .SetFocus 

'  Exit  Sub 

'  End  If 
'  End  With 

'tanker  2 

With  DistanceBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

Result  =  MsgBox("Do  you  want  to  continue  without  adding  an  additional 
refueling  point?",  _ 

vbYesNo,  "Manual  Enter") 

If  Result  =  6  Then 

InputEinalRTETData.Show 
Unload  Me 
End  If 

MsgBox  "Please  enter  a  numeric  value  for  the  distance." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempDistance2  =  DistanceBox2 
If  TempDistance  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  distance." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  BlockSpeedBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

Result  =  MsgBox("Do  you  want  to  continue  without  adding  an  additional 
refueling  point?",  _ 

vbYesNo,  "Manual  Enter") 

If  Result  =  6  Then 

InputEinalRTETData.Show 
Unload  Me 
End  If 

MsgBox  "Please  enter  a  numeric  value  for  the  True  Air  Speed." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempBlockSpeed2  =  BlockSpeedBox2 
If  TempBlockSpeed  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  True  Air  Speed." 
.SetEocus 
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BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  TimeAtPointBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

Result  =  MsgBox("Do  you  want  to  continue  without  adding  an  additional 
refueling  point?",  _ 

vbYesNo,  "Manual  Enter") 

If  Result  =  6  Then 

InputEinalRTETData.Show 
Unload  Me 
End  If 

MsgBox  "Please  enter  a  numeric  value  for  the  EuelElow." 

•SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempTimeatPoint2  =  TimeAtPointBox2 
If  TempTimeatPoint  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Average  Euel  Burn  Rate." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

If  HoursOption  =  Ealse  And  MinutesOption  =  Ealse  Then 
MsgBox  "Please  indicate  if  the  time  is  in  hours  or  minutes." 

BoxCheck  =  1 
Exit  Sub 

Elself  MinutesOption  =  True  Then 

TempTimeatPoint2  =  TempTimeatPoint2  \  60 
End  If 

'  With  QEfficiencyBox 

'  If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

'  MsgBox  "Please  enter  a  numeric  value  for  the  Receivers'  Efficiency." 

'  BoxCheck  =  1 

'  .SetEocus 

'  Exit  Sub 

'  End  If 

'  TempQEfficiency  =  QEfficiencyBox 

'  If  TempQEfficiency  <  0  Or  TempQEfficiency  >  1  Then 

'  MsgBox  "Please  enter  a  number  between  0  and  1  for  the  Receivers'  Efficiency." 
'  BoxCheck  =  1 

'  .SetEocus 

'  Exit  Sub 


125 


'  End  If 
'  End  With 
With  DistanceBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

Result  =  MsgBox("Do  you  want  to  continue  without  adding  an  additional 
refueling  point?",  _ 

vbYesNo,  "Manual  Enter") 

If  Result  =  6  Then 

InputEinalRTETData.Show 
Unload  Me 
End  If 

MsgBox  "Please  enter  a  numeric  value  for  the  distance." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempDistanceS  =  DistanceBoxS 
If  TempDistance  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  distance." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  BlockSpeedBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

Result  =  MsgBox("Do  you  want  to  continue  without  adding  an  additional 
refueling  point?",  _ 

vbYesNo,  "Manual  Enter") 

If  Result  =  6  Then 

InputEinalRTETData.Show 
Unload  Me 
End  If 

MsgBox  "Please  enter  a  numeric  value  for  the  True  Air  Speed." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempBlockSpeedS  =  BlockSpeedBoxS 
If  TempBlockSpeed  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  True  Air  Speed." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 
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With  TimeAtPointBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

Result  =  MsgBox("Do  you  want  to  continue  without  adding  an  additional 
refueling  point?",  _ 

vbYesNo,  "Manual  Enter") 

If  Result  =  6  Then 

InputFinalRTFTData.Show 
Unload  Me 
End  If 

MsgBox  "Please  enter  a  numeric  value  for  the  FuelFlow." 

•SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempTimeatPointS  =  TimeAtPointBoxS 
If  TempTimeatPoint  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Average  Fuel  Burn  Rate." 
.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

If  HoursOption  =  False  And  MinutesOption  =  False  Then 
MsgBox  "Please  indicate  if  the  time  is  in  hours  or  minutes." 

BoxCheck  =  1 
Exit  Sub 

Elself  MinutesOption  =  True  Then 

TempTimeatPointS  =  TempTimeatPointS  \  60 
End  If 

'  With  QEfficiencyBox 

'  If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

'  MsgBox  "Please  enter  a  numeric  value  for  the  Receivers'  Efficiency." 

'  BoxCheck  =  1 

'  .SetFocus 

'  Exit  Sub 

'  End  If 

'  TempQEfficiency  =  QEfficiencyBox 

'  If  TempQEfficiency  <  0  Or  TempQEfficiency  >  1  Then 

'  MsgBox  "Please  enter  a  number  between  0  and  1  for  the  Receivers'  Efficiency." 
'  BoxCheck  =  1 

'  .SetFocus 

'  Exit  Sub 

'  End  If 

'  End  With 
End  Sub 
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Private  Sub  TextBox2_Change() 

End  Sub 

Private  Sub  TimeatPointBox_Change() 
End  Sub 


Private  Sub  EiserPorm_Cliek() 
End  Sub 


Input  Final  Leg  of  Round  Trip  Flying  Time  Data 


Calculations  for  the  final  leg  of  the  trip  require  distance  from  the  refueling 
point  (in  nautical  miles)  and  air  speed  to  to  the  point  (in  nautical  miles  per 
hour)  inputted.  Select  Rnteh  to  calculate  all  legs  of  for  the  RTFT. 


Tanker  1 

Tanker  2 

T  anker  3 

Input  Distance  to 

Refuel  Point  (nm) 

r 

r 

r 

Input  Block  Speed  to 
Refuel  Point  (nm/hr) 

r 

r 

r 

Finish  Calculating  Round  Trip  Flying  Time 


Cancel 


■" —  1 1 - 1  I - 

Option  Explicit 

Dim  TempDistanee  As  Long,  TempBlockSpeed  As  Long,  BoxCheck  As  Integer, 
LegTime  As  Variant,  EuelUse  As  Long,  EuelBurn  As  Long,  _ 

TempDistance2  As  Long,  TempBlockSpeed2  As  Long,  _ 

TempDistanceS  As  Long,  TempBlockSpeedS  As  Long 

Private  Sub  BlockSpeedBox_Change() 

End  Sub 
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Private  Sub  CancelCommandButton_Click() 

Unload  Me 
End  Sub 

Private  Sub  emdContinueRTFT_Cliek() 

'  Calls  subroutine  to  eheek  if  inputs  are  valid 
BoxCheek  =  0 
Call  Cheekinputs 
If  BoxCheek  =  1  Then 
Exit  Sub 
End  If 

'Calls  subroutine  to  ealculate  final  leg  for  Round  Trip  Flying  Time 
Call  CalculateFinalRTFT 
'Unload  the  form 
Unload  Me 
End  Sub 

Sub  CheekInputsO 

'  Cheeks  to  ensure  users  inputs  are  numerie 

'  Assigns  users  inputs  to  temporary  variables  used  to  ealeulate  Round  Trip  Flying  Time 
With  DistaneeBox 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  distanee." 

•SetFoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempDistance  =  DistaneeBox 
If  TempDistanee  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  distanee." 

.SetFoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  BloekSpeedBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  True  Air  Speed." 

.SetFoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempBloekSpeed  =  BloekSpeedBox 
If  TempBloekSpeed  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  True  Air  Speed." 

.SetFoeus 
BoxCheek  =  1 
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Exit  Sub 
End  If 
End  With 

With  DistanceBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  distance." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempDistance2  =  DistanceBox2 
If  TempDistance2  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  distance." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  BlockSpeedBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  True  Air  Speed." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempBlockSpeed2  =  BlockSpeedBox2 
If  TempBlockSpeed2  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  True  Air  Speed." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  DistanceBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  distance." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempDistanceS  =  DistanceBoxS 
If  TempDistanceS  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  distance." 
.SetEocus 
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BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  BlockSpeedBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  True  Air  Speed." 

.SetEocus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempBloekSpeedS  =  BloekSpeedBoxS 
If  TempBloekSpeedS  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  True  Air  Speed." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 
End  Sub 

Sub  CalculateEinalRTETO 

'  Calculates  current  leg's  Round  Trip  Elying  Time  and  adds  to  previous  legs  times 
RTET  =  (TempDistance  \  TempBlockSpeed)  +  RTET 
RTET2  =  (TempDistance2  \  TempBlockSpeed2)  +  RTET2 
RTET3  =  (TempDistanceS  \  TempBlockSpeedS)  +  RTET3 
End  Sub 


Private  Sub  DistanceBox_Change() 
End  Sub 

Private  Sub  UserPorm_Click() 

End  Sub 
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Option  Explicit 

Private  Sub  CmdCancel_Click() 

'  Returns  the  user  to  the  previous  form  without  ealeulating  or  recording  any  information 
Unload  Me 
End  Sub 

Private  Sub  CmdContCyeleTimeCalc_Click() 

'  Ensures  appropriate  number  has  been  entered  for  total  ground  time  and  assigns  the  value 
to  the  ground  time  variable 
With  GroundTimeBox 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Total  Ground  Time." 

.SetFoeus 
Exit  Sub 
End  If 

TotalGroundTime  =  GroundTimeBox 
If  TotalGroundTime  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Total  Ground  Time." 

.SetFoeus 
Exit  Sub 
End  If 
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End  With 

If  HoursOption  =  False  And  MinutesOption  =  False  Then 
MsgBox  "Please  indicate  if  this  is  in  hours  or  minutes." 

Exit  Sub 

Elself  MinutesOption  =  True  Then 

TotalGroundTime  =  TotalGroundTime  \  60 
End  If 

With  GroundTimeBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Total  Ground  Time." 
.SetFocus 
Exit  Sub 
End  If 

TotalGroundTime!  =  GroundTimeBox! 

If  TotalGroundTime!  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Total  Ground  Time." 
.SetFocus 
Exit  Sub 
End  If 
End  With 

If  HoursOption  =  False  And  MinutesOption  =  False  Then 
MsgBox  "Please  indicate  if  this  is  in  hours  or  minutes." 

Exit  Sub 

Elself  MinutesOption  =  True  Then 

TotalGroundTime!  =  TotalGroundTime!  \  60 
End  If 

With  GroundTimeBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Total  Ground  Time." 
.SetFocus 
Exit  Sub 
End  If 

TotalGroundTime!  =  GroundTimeBoxS 
If  TotalGroundTime!  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Total  Ground  Time." 
.SetFocus 
Exit  Sub 
End  If 
End  With 

If  HoursOption  =  False  And  MinutesOption  =  False  Then 
MsgBox  "Please  indicate  if  this  is  in  hours  or  minutes." 

Exit  Sub 

Elself  MinutesOption  =  True  Then 

TotalGroundTime!  =  TotalGroundTime!  \  60 
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End  If 
Unload  Me 
End  Sub 

Private  Sub  CmdKC10CycleInfo_Click() 

'  Displays  message  box  with  typical  ground  times  for  KC-10 
MsgBox  "Typical  Ground  times  for  KC-10  are  as  follows:  (More  details  later)", ,  "KC- 
10  Typical  Ground  Times" 

End  Sub 

Private  Sub  CmdKC135TGTInfo_Click() 

'  Displays  message  box  with  typical  ground  times  for  KC-135 

MsgBox  "Typical  Ground  times  for  KC-135  are  as  follows:  (More  details  later)", , 
"KC-135  Typical  Ground  Times" 

End  Sub 

Private  Sub  UserPorm_Click() 

End  Sub 
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Option  Explicit 


Dim  Temp  Assigned  As  Integer,  TempNMC  As  Integer,  TempOther  As  Integer,  _ 
TempAvailable  As  Single,  TempTankUtilization  As  Double,  _ 

BoxCheek  As  Integer,  OneAireraftDailyGeneration  As  Double,  _ 

Temp  Assigned!  As  Integer,  TempNMC!  As  Integer,  TempOther!  As  Integer,  _ 
TempAvailable!  As  Single,  TempTankUtilization!  As  Double,  _ 
OneAireraftDailyGeneration!  As  Double,  _ 

TempAssignedS  As  Integer,  TempNMCS  As  Integer,  TempOther!  As  Integer,  _ 
TempAvailable!  As  Single,  TempTankUtilization!  As  Double,  _ 
OneAireraftDailyGeneration!  As  Double 

Private  Sub  OneAireraftSortieGenBox_Change() 

End  Sub 

Private  Sub  UserPorm_Initialize() 

'  Enters  sortie  generation  eapability  into  form 
If  CyeleTime  =  0  Then 
Exit  Sub 
End  If 

OneAireraftDailyGeneration  =  !4  /  CyeleTime 

OneAireraftDailyGeneration  =  RoundNear(OneAiroraftDailyGeneration,  0.01) 
OneAireraftSortieGenBox.Value  =  OneAireraftDailyGeneration 

OneAireraftDailyGeneration!  =  !4  /  CyeleTime! 

OneAireraftDailyGeneration!  =  RoundNear(OneAiroraftDailyGeneration!,  0.01) 
OneAiroraftSortieGenBox!.Value  =  OneAireraftDailyGeneration! 

OneAireraftDailyGeneration!  =  !4  /  CyeleTime! 

OneAireraftDailyGeneration!  =  RoundNear(OneAiroraftDailyGeneration!,  0.01) 
OneAireraftSortieGenBox!  .Value  =  OneAireraftDailyGeneration! 

End  Sub 

Private  Sub  CmdCaleAireraftInt_Cliek() 

BoxCheek  =  0 

'  Calls  subroutine  to  eheek  if  inputs  are  valid 
Call  Cheekinputs 
If  BoxCheek  =  I  Then 
Exit  Sub 
End  If 

'Calculate  Available  Aireraft 

TempAvailable  =  (TempAssigned  -  TempNMC  -  TempOther)  *  TempTankUtilization 
TempAvailable!  =  (TempAssigned!  -  TempNMC!  -  TempOther!)  * 
TempTankUtilization! 
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TempAvailableS  =  (TempAssignedS  -  TempNMCS  -  TempOtherS)  * 
TempTankUtilizationS 
'Calculate  Aircraft  Interval 

Aircraftint  =  Temp  Available  *  One  AircraftD  ally  Generation 
Aircraftint  =  RoundNear( Aircraftint,  O.I) 

If  Aircraftint  <  0  Then 
Aircraftint  =  0 
End  If 

TempAircraftSortieGenBox  =  Aircraftint 

Aircraftint!  =  Temp  Available!  *  OneAircraftDailyGeneration! 

Aircraftint!  =  RoundNear(AircraftInt!,  O.I) 

If  Aircraftint!  <  0  Then 
Aircraftint!  =  0 
End  If 

TempAircraftSortieGenBox!  =  Aircraftint! 

Aircraftint!  =  Temp  Available!  *  OneAircraftDailyGeneration! 

Aircraftint!  =  RoundNear( Aircraftint!,  O.I) 

If  Aircraftint!  <  0  Then 
Aircraftint!  =  0 
End  If 

TempAircraftSortieGenBox!  =  Aircraftint! 

End  Sub 

Private  Sub  CmdCancel_Click() 

'  Returns  user  to  previous  form  without  saving  data 
Unload  Me 
End  Sub 

Private  Sub  CmdInstructions_Click() 

InstructionsAircraftInt.  Show 
End  Sub 

Sub  CheckInputsO 

'  Checks  to  ensure  users  inputs  are  numeric,  the  utilization  is  between  0  and  1,  _ 

'  and  that  NMC  and  Other  aircraft  total  does  not  exceed  the  available  aircraft 
'  Assigns  users  inputs  to  temporary  variables  to  calculate  available  aircraft  required 
With  OneAircraftSortieGenBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  daily  sortie  generation  capabibility 
of  one  aircraft." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
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End  If 

OneAircraftDailyGeneration  =  OneAircraftSortieGenBox 
If  OneAircraftDailyGeneration  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  daily  sortie  generation 
capabibility  of  one  aircraft." 

•SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 
With  AssignedBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Total  Assigned  Aircraft." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempAssigned  =  AssignedBox 
If  Temp  Assigned  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Assigned  Aircraft." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 
With  NMCBox 

If  Not  IsNumeric(.Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Non  Mission  Capable  Aircraft." 
.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempNMC  =  NMCBox 
If  TempNMC  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Non  Mission  Capable 
Aircraft." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

If  TempNMC  >  TempAssigned  Then 

MsgBox  "The  number  of  the  Non  Mission  Capable  Aircraft  must  be  less  than  "  & 

"the  number  of  Assigned  Aircraft."  &  vbCrEf  &  vbCrEf  _ 

&  "Please  reenter  the  number." 

BoxCheck  =  1 
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•SetFocus 
Exit  Sub 
End  If 
End  With 
With  OtherBox 

If  Not  IsNumeric(.  Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Aireraft  Unavailable  for  Other 
Reasons." 

•SetEoeus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempOther  =  OtherBox 
If  TempOther  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Aircraft  Unavailable  for  Other 
Reasons." 

.SetEoeus 
BoxCheck  =  1 
Exit  Sub 
End  If 

If  TempOther  >  Temp  Assigned  Then 

MsgBox  "The  number  of  the  Aircraft  Unavailable  for  Other  reasons  must  "  &  _ 
"be  less  than  the  number  of  Assigned  Aircraft."  &  vbCrEf  &  vbCrEf  _ 

&  "Please  reenter  the  number." 

BoxCheck  =  1 
.SetEoeus 
Exit  Sub 
End  If 
End  With 

If  TempNMC  +  TempOther  >  TempAssigned  Then 

MsgBox  "The  number  of  Non  Mission  Capable  Aircraft  plus  the  Aircraft 
Unavailable  for  Other  "  &  _ 

"Reasons  must  total  less  than  the  number  of  Assigned  Aircraft."  &  vbCrEf  & 
vbCrEf_ 

&  "Please  recheck  and  reenter  these  numbers." 

BoxCheck  =  1 
Exit  Sub 
End  If 

With  QEfficiencyBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Aircraft's  Utilization." 

.SetEoeus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempTankUtilization  =  QEfficiencyBox 
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If  TempTankUtilization  <  0  Or  TempTankUtilization  >  1  Then 

MsgBox  "Please  enter  a  number  between  0  and  1  for  the  Aireraff  s  Utilization." 
•SetFoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

'tanker2 

'  Cheeks  to  ensure  users  inputs  are  numerie,  the  utilization  is  between  0  and  1,  _ 

'  and  that  NMC  and  Other  aireraft  total  does  not  exeeed  the  available  aireraft 
'  Assigns  users  inputs  to  temporary  variables  to  ealculate  available  aireraft  required 
With  OneAireraftSortieGenBox2 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  daily  sortie  generation  capabibility 
of  one  aircraft." 

.SetEocus 
BoxCheek  =  1 
Exit  Sub 
End  If 

OneAircraftDailyGeneration2  =  OneAircraftSortieGenBox2 
If  OneAircraftDailyGeneration2  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  daily  sortie  generation 
capabibility  of  one  aircraft." 

.SetEocus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  AssignedBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Total  Assigned  Aircraft." 

.SetEocus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempAssigned2  =  AssignedBox2 
If  TempAssignedS  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Assigned  Aircraft." 

.SetEocus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 
With  NMCBox2 
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If  Not  IsNumeric(.Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Non  Mission  Capable  Aircraft." 
•SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempNMC2  =  NMCBox2 
If  TempNMC2  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Non  Mission  Capable 
Aircraft." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

If  TempNMC2  >  TempAssigned2  Then 

MsgBox  "The  number  of  the  Non  Mission  Capable  Aircraft  must  be  less  than  "  & 

"the  number  of  Assigned  Aircraft."  &  vbCrEf  &  vbCrEf  _ 

&  "Please  reenter  the  number." 

BoxCheck  =  1 
.SetEocus 
Exit  Sub 
End  If 
End  With 
With  OtherBox2 
If  Not  IsNumeric(.  Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Aircraft  Unavailable  for  Other 
Reasons." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempOther2  =  OtherBox2 
If  TempOther2  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Aircraft  Unavailable  for  Other 
Reasons." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

If  TempOther2  >  TempAssigned2  Then 

MsgBox  "The  number  of  the  Aircraft  Unavailable  for  Other  reasons  must  "  &  _ 
"be  less  than  the  number  of  Assigned  Aircraft."  &  vbCrEf  &  vbCrEf  _ 

&  "Please  reenter  the  number." 

BoxCheck  =  1 
.SetEocus 
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Exit  Sub 
End  If 
End  With 

If  TempNMC2  +  TempOther2  >  TempAssigned2  Then 

MsgBox  "The  number  of  Non  Mission  Capable  Aireraft  plus  the  Aireraft 
Unavailable  for  Other  "  &  _ 

"Reasons  must  total  less  than  the  number  of  Assigned  Aireraft."  &  vbCrEf  & 
vbCrEf_ 

&  "Please  reeheek  and  reenter  these  numbers." 

BoxCheek  =  1 
Exit  Sub 
End  If 

With  QEf[ieieneyBox2 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Aireraffs  Utilization." 

.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempTankUtilization2  =  QEffieieneyBox2 
If  TempTankUtilization2  <  0  Or  TempTankUtilization2  >  1  Then 

MsgBox  "Please  enter  a  number  between  0  and  1  for  the  Aireraffs  Utilization." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

'tankerS 

'  Cheeks  to  ensure  users  inputs  are  numerie,  the  utilization  is  between  0  and  1,  _ 

'  and  that  NMC  and  Other  aireraft  total  does  not  exeeed  the  available  aireraft 
'  Assigns  users  inputs  to  temporary  variables  to  ealeulate  available  aireraft  required 
With  OneAireraftSortieGenBoxS 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  daily  sortie  generation  eapabibility 
of  one  aireraft." 

.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

OneAireraftDailyGenerationS  =  OneAireraftSortieGenBoxS 
If  OneAireraftDailyGenerationS  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  daily  sortie  generation 
eapabibility  of  one  aireraft." 

.SetEoeus 
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BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  AssignedBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Total  Assigned  Aircraft." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempAssignedS  =  AssignedBoxS 
If  TempAssignedS  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Assigned  Aircraft." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 
With  NMCBoxS 

If  Not  IsNumeric(.  Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Non  Mission  Capable  Aircraft." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempNMCS  =  NMCBoxS 
If  TempNMCS  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Non  Mission  Capable 
Aircraft." 

.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

If  TempNMCS  >  TempAssignedS  Then 

MsgBox  "The  number  of  the  Non  Mission  Capable  Aircraft  must  be  less  than  "  & 

"the  number  of  Assigned  Aircraft."  &  vbCrEf  &  vbCrEf  _ 

&  "Please  reenter  the  number." 

BoxCheck  =  1 
.SetEocus 
Exit  Sub 
End  If 
End  With 
With  OtherBoxS 
If  Not  IsNumeric(.  Value)  Then 
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MsgBox  "Please  enter  a  numerie  value  for  the  Aireraft  Unavailable  for  Other 
Reasons." 

•SetFoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempOtherS  =  OtherBoxS 
If  TempOtherS  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Aircraft  Unavailable  for  Other 
Reasons." 

.SetEocus 
BoxCheek  =  1 
Exit  Sub 
End  If 

If  TempOtherS  >  TempAssignedS  Then 

MsgBox  "The  number  of  the  Aircraft  Unavailable  for  Other  reasons  must  "  &  _ 
"be  less  than  the  number  of  Assigned  Aircraft."  &  vbCrEf  &  vbCrEf  _ 

&  "Please  reenter  the  number." 

BoxCheek  =  1 
.SetEocus 
Exit  Sub 
End  If 
End  With 

If  TempNMCS  +  TempOtherS  >  TempAssignedS  Then 

MsgBox  "The  number  of  Non  Mission  Capable  Aircraft  plus  the  Aircraft 
Unavailable  for  Other  "  &  _ 

"Reasons  must  total  less  than  the  number  of  Assigned  Aircraft."  &  vbCrEf  & 
vbCrEf_ 

&  "Please  recheck  and  reenter  these  numbers." 

BoxCheek  =  1 
Exit  Sub 
End  If 

With  QEfficiencyBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Aircraft's  Utilization." 

.SetEocus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempTankUtilizationS  =  QEfficiencyBoxS 
If  TempTankUtilizationS  <  0  Or  TempTankUtilizationS  >  I  Then 

MsgBox  "Please  enter  a  number  between  0  and  1  for  the  Aircraft's  Utilization." 
.SetEocus 
BoxCheek  =  1 
Exit  Sub 
End  If 
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End  With 
End  Sub 


Private  Sub  RetumCmd_Click() 
'Einload  the  form 

InputAircraftIntData.Hide 
End  Sub 


Option  Explicit 

Dim  TempAssigned  As  Integer,  TempNonAvail  As  Integer,  TempTimeErame  As 
Double,  _ 

Temp  Avail  As  Double,  TempCrewUtilization  As  Double,  _ 

WeekMaxHrs  As  Double,  MonthMaxHrs  As  Double,  ThreeMonthMaxHrs  As 
Double,  _ 

TempWeek  As  Double,  TempMonth  As  Double,  TempThreeMonth  As  Double, 
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BoxCheck  As  Integer,  HoursCheck  As  Integer,  _ 

Temp  Assigned!  As  Integer,  TempNonAvail!  As  Integer,  TempTimeFrame!  As 
Double,  _ 

TempAvail!  As  Double,  TempCrewUtilization!  As  Double,  _ 

WeekMaxHrs!  As  Double,  MonthMaxHrs!  As  Double,  ThreeMonthMaxHrs!  As 
Double,  _ 

TempWeek!  As  Double,  TempMonth!  As  Double,  TempThreeMonth!  As  Double, 

TempAssignedS  As  Integer,  TempNonAvaiB  As  Integer,  TempTimeFrameS  As 
Double,  _ 

TempAvaiB  As  Double,  TempCrewUtilizationS  As  Double,  _ 

WeekMaxHrsS  As  Double,  MonthMaxHrsS  As  Double,  ThreeMonthMaxHrsS  As 
Double,  _ 

TempWeekS  As  Double,  TempMonthS  As  Double,  TempThreeMonthS  As  Double 
Private  Sub  UserForm_Initialize() 

'  Hides  hours  boxes  and  units  until  a  time  frame  is  selected 
OneWeekHrsBox.Visible  =  False 
OneMonthHrsBox.Visible  =  False 
ThreeMonthHrsBox.Visible  =  False 

OneWeekHrsBox!.  Visible  =  False 
OneMonthHrsBox2.Visible  =  False 
ThreeMonthHrsBox2.Visible  =  False 

OneWeekHrsBoxS  .Visible  =  False 
OneMonthHrsBoxS  .Visible  =  False 
ThreeMonthHrsBoxS  .Visible  =  False 

End  Sub 

Private  Sub  ConsiderA110ption_Click() 

'  Unhides  the  appropriate  box  for  user  to  enter  max  flying  hours  for  all  time  frames 
OneWeekHrsBox.Visible  =  True 

OneMonthHrsBox.Visible  =  True 

ThreeMonthHrsBox.Visible  =  True 

OneWeekHrsBox2.Visible  =  True 

OneMonthHrsBox2.Visible  =  True 

ThreeMonthHrsBox2.Visible  =  True 

OneWeekHrsBoxS  .Visible  =  True 
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OneMonthHrsBoxS  .Visible  =  True 


ThreeMonthHrsBoxS  .Visible  =  True 


End  Sub 

Private  Sub  OneMontbOption_Cliek() 

'  Unbides  tbe  appropriate  box  for  user  to  enter  max  flying  hours  for  one  month 
OneWeekHrsBox.Visible  =  False 

OneMonthHrsBox.Visible  =  True 

ThreeMonthHrsBox.Visible  =  False 

OneWeekHrsBox2  .Visible  =  False 
OneMonthHrsBox2.Visible  =  True 
ThreeMonthHrsBox2.Visible  =  False 
OneWeekHrsBoxS  .Visible  =  False 
OneMonthHrsBoxS  .Visible  =  True 
ThreeMonthHrsBoxS  .Visible  =  False 
End  Sub 

Private  Sub  OneWeekOption_Cliek() 

'  Unhides  the  appropriate  box  for  user  to  enter  max  flying  hours  for  one  week 
OneWeekHrsBox.Visible  =  True 

OneMonthHrsBox.Visible  =  False 

ThreeMonthHrsBox.Visible  =  False 

OneWeekHrsBox2  .Visible  =  True 

OneMonthHrsBox2.Visible  =  False 

ThreeMonthHrsBox2.Visible  =  False 
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OneWeekHrsBoxS  .Visible  =  True 


OneMonthHrsBoxS  .Visible  =  False 
ThreeMonthHrsBoxS  .Visible  =  False 

End  Sub 

Private  Sub  ThreeMonthOption_Click() 

'  Unhides  the  appropriate  box  for  user  to  enter  max  flying  hours  for  three  months 
OneWeekHrsBox.Visible  =  False 

OneMonthHrsBox.Visible  =  False 

ThreeMonthHrsBox.Visible  =  True 

OneWeekHrsBox2  .Visible  =  False 

OneMonthHrsBox2.Visible  =  False 

ThreeMonthHrsBox2.Visible  =  True 

OneWeekHrsBoxS  .Visible  =  False 

OneMonthHrsBoxS  .Visible  =  False 

ThreeMonthHrsBoxS  .Visible  =  True 


End  Sub 

Private  Sub  CmdCaleAircrewInt_Click() 

'  Initializes  NonAvailBox  to  allow  users  to  assume  all  crews  are  avaialable 
BoxCheck  =  0 

'  Calls  subroutine  to  check  if  inputs  are  valid 
Call  Checkinputs 
If  BoxCheck  =  I  Then 
Exit  Sub 
End  If 

'  Calculate  Available  Aircrew 

TempAvail  =  (TempAssigned  -  TempNonAvail)  *  TempCrewUtilization 
TempAvail2  =  (TempAssigned2  -  TempNonAvail2)  *  TempCrewUtilization2 
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TempAvaiB  =  (TempAssignedS  -  TempNonAvaiB)  *  TempCrewUtilizationS 
'  Calculate  Aircrew  Interval 

Airerewint  =  TempAvail  *  TempTimeFrame  /  RTFT 
If  Airerewint  <  0  Then 
Airerewint  =  0 
End  If 

TempAirerewSortieGenBox  =  Airerewint 

Airerewint!  =  TempAvail!  *  TempTimeFrame!  /  RTFT! 

If  Airerewint!  <  0  Then 
Airerewint!  =  0 
End  If 

TempAirerewSortieGenBox!  =  Airerewint! 

Airerewint!  =  TempAvaiB  *  TempTimeErameS  /  RTET3 
If  Airerewint!  <  0  Then 
AirerewIntS  =  0 
End  If 

TempAirerewSortieGenBoxS  =  AirerewInB 
End  Sub 

Private  Sub  CmdCaneel_Cliek() 

'Closes  the  form  without  saving  any  data 
Unload  Me 
End  Sub 

Private  Sub  CmdInstruetions_Click() 

Instructions  Airerewint.  Show 
End  Sub 

Private  Sub  RetumCmd_Cliek() 

'  Returns  used  to  the  main  form,  saving  data  by  hiding  the  form 
InputAirerewIntData.Hide 
End  Sub 

Sub  CheckInputsO 

'Assigns  users  inputs  to  temporary  variables  to  calculate  available  aircrew  required 
With  AssignedBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Total  Assigned  Aircrew." 
BoxCheck  =  1 
.SetEocus 
Exit  Sub 
End  If 

TempAssigned  =  AssignedBox 
If  Temp  Assigned  <  0  Then 
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MsgBox  "Please  enter  a  nonnegative  value  for  the  Assigned  Airerew." 

•SetFoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  NonAvailBox 

If  Not  IsNumerio(.  Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Unavailable  Crews." 

BoxCheek  =  1 
•SetEoeus 
Exit  Sub 
End  If 

TempNonAvail  =  NonAvailBox 

If  TempNonAvail  <  0  Or  TempNonAvail  >  TempAssigned  Then 

MsgBox  "Please  enter  a  nonnegative  value  between  0  and  "  &  TempAssigned  &  " 
for  Unvailable  Crews." 

BoxCheek  =  1 
.SetEoeus 
Exit  Sub 
End  If 
End  With 

With  CrewUtilizationBox 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Airerew's  Utilization." 

BoxCheek  =  1 
.SetEoeus 
Exit  Sub 
End  If 

TempCrewUtilization  =  CrewUtilizationBox 
If  TempCrewUtilization  <  0  Or  TempCrewUtilization  >  1  Then 
BoxCheek  =  1 

MsgBox  "Please  enter  a  number  between  0  and  1  for  the  Airerew's  Utilization." 
.SetEoeus 
Exit  Sub 
End  If 
End  With 

'  Assings  a  number  to  the  hourseheek  variable  to  let  CheekElyingHoursInput  proeeedure 
know  whieh  box  to  eheek 

'  Calls  proeeedure  to  eheek  box  and  uses  BoxCheek  variable  to  determine  if  inputs  are 
aeeep  table 

If  OneWeekOption  =  True  Then 
HoursCheek  =  I 
CheekElyingHoursInput 
If  BoxCheek  =  I  Then 
Exit  Sub 
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End  If 

TempTimeFrame  =  WeekMaxHrs  /  7 
Elself  OneMonthOption  =  True  Then 
HoursCheek  =  2 
CheckFlyingHoursInput 
If  BoxCheck  =  I  Then 
Exit  Sub 
End  If 

TempTimeFrame  =  MonthMaxHrs  /  30 
Elself  ThreeMonthOption  =  True  Then 
HoursCheek  =  3 
CheekFlyingHoursInput 
If  BoxCheck  =  1  Then 
Exit  Sub 
End  If 

TempTimeFrame  =  ThreeMonthMaxHrs  /  90 
Elself  Consider AllOption  =  True  Then 

'  Determines  the  most  confining  variable  from  max  flying  hours  per  time  frames 
HoursCheek  =  4 
CheckFlyingHoursInput 
If  BoxCheck  =  1  Then 
Exit  Sub 
End  If 

Temp  Week  =  WeekMaxHrs  /  7 
TempMonth  =  MonthMaxHrs  /  30 
TempThreeMonth  =  ThreeMonthMaxHrs  /  90 

If  TempWeek  <  TempMonth  And  TempWeek  <  TempThreeMonth  Then 
TempTimeFrame  =  TempWeek 

Elself  TempMonth  <  TempWeek  And  TempMonth  <  TempThreeMonth  Then 
TempTimeFrame  =  TempMonth 
Else 

TempTimeFrame  =  TempThreeMonth 
End  If 
Else 

MsgBox  "At  least  one  time  frame  must  be  selected." 

BoxCheck  =  1 
Exit  Sub 
End  If 


'tanker2 

Assigns  users  inputs  to  temporary  variables  to  calculate  available  aircrew  required 
With  AssignedBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 
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MsgBox  "Please  enter  a  numerie  value  for  the  Total  Assigned  Airerew." 
BoxCheek  =  1 
•SetFoeus 
Exit  Sub 
End  If 

TempAssigned2  =  AssignedBox2 
If  TempAssigned2  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Assigned  Airerew." 

•SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  NonAvailBox2 

If  Not  IsNumerio(.Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Unavailable  Crews." 

BoxCheek  =  1 
.SetEoeus 
Exit  Sub 
End  If 

TempNonAvail2  =  NonAvailBox2 

If  TempNonAvail2  <  0  Or  TempNonAvail2  >  TempAssigned2  Then 

MsgBox  "Please  enter  a  nonnegative  value  between  0  and  "  &  TempAssigned  &  " 
for  Unvailable  Crews." 

BoxCheek  =  1 
.SetEoeus 
Exit  Sub 
End  If 
End  With 

With  CrewUtilizationBox2 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Airerew's  Utilization." 

BoxCheek  =  1 
.SetEoeus 
Exit  Sub 
End  If 

TempCrewUtilization2  =  CrewUtilizationBox2 
If  TempCrewUtihzation2  <  0  Or  TempCrewUtilization2  >  I  Then 
BoxCheek  =  I 

MsgBox  "Please  enter  a  number  between  0  and  1  for  the  Airerew's  Utilization." 
.SetEoeus 
Exit  Sub 
End  If 
End  With 

'  Assings  a  number  to  the  hourseheek  variable  to  let  CheekElyingHoursInput  proeeedure 
know  whieh  box  to  eheek 
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'  Calls  proceedure  to  check  box  and  uses  BoxCheck  variable  to  determine  if  inputs  are 
acceptable 

If  OneWeekOption  =  True  Then 
HoursCheck  =  1 
CheckFlyingHoursInput 
If  BoxCheck  =  I  Then 
Exit  Sub 
End  If 

TempTimeErame2  =  WeekMaxHrs2  /  7 
Elself  OneMonthOption  =  True  Then 
HoursCheck  =  2 
CheckElyingHoursInput 
If  BoxCheck  =  I  Then 
Exit  Sub 
End  If 

TempTimeErame2  =  MonthMaxHrs2  /  30 
Elself  ThreeMonthOption  =  True  Then 
HoursCheck  =  3 
CheckElyingHoursInput 
If  BoxCheck  =  I  Then 
Exit  Sub 
End  If 

TempTimeErame2  =  ThreeMonthMaxHrs2  /  90 
Elself  Consider AllOption  =  True  Then 

'  Determines  the  most  confining  variable  from  max  flying  hours  per  time  frames 
HoursCheck  =  4 
CheckElyingHoursInput 
If  BoxCheck  =  I  Then 
Exit  Sub 
End  If 

TempWeek2  =  WeekMaxHrs2  /  7 
TempMonth2  =  MonthMaxHrs2  /  30 
TempThreeMonth2  =  ThreeMonthMaxHrs2  /  90 

If  TempWeek2  <  TempMonth2  And  TempWeek2  <  TempThreeMonth2  Then 
TempTimeErame2  =  TempWeek2 

Elself  TempMonth2  <  TempWeek2  And  TempMonth2  <  TempThreeMonth2  Then 
TempTimeErame2  =  TempMonth2 
Else 

TempTimeErame2  =  TempThreeMonth2 
End  If 
Else 

MsgBox  "At  least  one  time  frame  must  be  selected." 

BoxCheck  =  1 
Exit  Sub 
End  If 
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'tankerS 


'Assigns  users  inputs  to  temporary  variables  to  ealeulate  available  airerew  required 
With  AssignedBoxS 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  Total  Assigned  Airerew." 
BoxCheck  =  1 
.SetFocus 
Exit  Sub 
End  If 

TempAssignedS  =  AssignedBoxS 
If  TempAssignedS  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  Assigned  Airerew." 

.SetEoeus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  NonAvailBoxS 

If  Not  IsNumeric(.Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Unavailable  Crews." 

BoxCheck  =  1 
.SetEoeus 
Exit  Sub 
End  If 

TempNonAvaiB  =  NonAvailBoxS 

If  TempNonAvaiB  <  0  Or  TempNonAvaiB  >  TempAssignedS  Then 

MsgBox  "Please  enter  a  nonnegative  value  between  0  and  "  &  TempAssigned  &  " 
for  Unvailable  Crews." 

BoxCheck  =  1 
.SetEoeus 
Exit  Sub 
End  If 
End  With 

With  CrewUtilizationBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  Aircrew's  Utilization." 

BoxCheck  =  1 
.SetEoeus 
Exit  Sub 
End  If 

TempCrewUtilizationS  =  CrewUtilizationBoxS 
If  TempCrewUtilizationS  <  0  Or  TempCrewUtilizationS  >  I  Then 
BoxCheck  =  I 

MsgBox  "Please  enter  a  number  between  0  and  1  for  the  Aircrew's  Utilization." 
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•SetFocus 
Exit  Sub 
End  If 
End  With 

'  Assings  a  number  to  the  hourscheck  variable  to  let  CheckElyingHoursInput  proeeedure 
know  whieh  box  to  eheek 

'  Calls  proeeedure  to  eheek  box  and  uses  BoxCheek  variable  to  determine  if  inputs  are 
acceptable 

If  OneWeekOption  =  True  Then 
HoursCheck  =  1 
CheckElyingHoursInput 
If  BoxCheek  =  1  Then 
Exit  Sub 
End  If 

TempTimeErameS  =  WeekMaxHrsS  /  7 
Elself  OneMonthOption  =  True  Then 
HoursCheck  =  2 
CheckElyingHoursInput 
If  BoxCheek  =  1  Then 
Exit  Sub 
End  If 

TempTimeErameS  =  MonthMaxHrsS  /  30 
Elself  ThreeMonthOption  =  True  Then 
HoursCheck  =  3 
CheckElyingHoursInput 
If  BoxCheek  =  1  Then 
Exit  Sub 
End  If 

TempTimeErame3  =  ThreeMonthMaxHrs3  /  90 
Elself  Consider AllOption  =  True  Then 

'  Determines  the  most  confining  variable  from  max  flying  hours  per  time  frames 
HoursCheck  =  4 
CheckElyingHoursInput 
If  BoxCheek  =  1  Then 
Exit  Sub 
End  If 

TempWeek3  =  WeekMaxHrs3  /  7 
TempMonth3  =  MonthMaxHrs3  /  30 
TempThreeMonth3  =  ThreeMonthMaxHrs3  /  90 

If  TempWeek3  <  TempMonth3  And  TempWeek3  <  TempThreeMonth3  Then 
TempTimeErame3  =  TempWeek3 

Elself  TempMonth3  <  TempWeek3  And  TempMonth3  <  TempThreeMonth3  Then 
TempTimeErame3  =  TempMonth3 
Else 

TempTimeErame3  =  TempThreeMonth3 
End  If 
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Else 

MsgBox  "At  least  one  time  frame  must  be  seleeted." 

BoxCheck  =  1 
Exit  Sub 
End  If 

End  Sub 

Sub  CheckElyingHoursInputO 

'Assigns  users  inputs  for  max  flying  hours  to  temporary  variables  to  calculate 
TempTimeErame 

'  Exits  proceedure  if  entry  to  box  does  not  meet  appropriate  criteria 
If  HoursCheck  =  I  Or  HoursCheck  =  4  Then 
With  OneWeekHrsBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  maximum  number  of  hours  a 
crew  can  fly  in  one  week." 

BoxCheck  =  1 
.SetEocus 
Exit  Sub 
End  If 

WeekMaxHrs  =  OneWeekHrsBox 
If  WeekMaxHrs  <  0  Or  WeekMaxHrs  >168  Then 
BoxCheck  =  I 

MsgBox  "Please  enter  a  number  between  0  and  168  for  the  maximum  number 
of  hours  a  crew  can  fly  in  one  week." 

Exit  Sub 
End  If 
End  With 
End  If 

If  HoursCheck  =  2  Or  HoursCheck  =  4  Then 
With  OneMonthHrsBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  maximum  number  of  hours  a 
crew  can  fly  in  one  month." 

BoxCheck  =  1 
.SetEocus 
Exit  Sub 
End  If 

MonthMaxHrs  =  OneMonthHrsBox 
If  MonthMaxHrs  <  0  Or  MonthMaxHrs  >  720  Then 
BoxCheck  =  I 

MsgBox  "Please  enter  a  number  between  0  and  720  for  the  maximum  number 
of  hours  a  crew  can  fly  in  one  month." 

Exit  Sub 
End  If 
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End  With 
End  If 

If  HoursCheck  =  3  Or  HoursCheck  =  4  Then 
With  ThreeMonthHrsBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  maximum  number  of  hours  a 
crew  can  fly  in  three  months." 

BoxCheck  =  1 
.SetEocus 
Exit  Sub 
End  If 

ThreeMonthMaxHrs  =  ThreeMonthHrsBox 
If  ThreeMonthMaxHrs  <  0  Or  ThreeMonthMaxHrs  >2160  Then 
BoxCheck  =  1 

MsgBox  "Please  enter  a  number  between  0  and  2160  for  the  maximum  number 
of  hours  a  crew  can  fly  in  three  months." 

Exit  Sub 
End  If 
End  With 
End  If 


'tanker2 


'Assigns  users  inputs  for  max  flying  hours  to  temporary  variables  to  calculate 
TempTimeErame 

'  Exits  proceedure  if  entry  to  box  does  not  meet  appropriate  criteria 
If  HoursCheck  =  1  Or  HoursCheck  =  4  Then 
With  OneWeekHrsBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  maximum  number  of  hours  a 
crew  can  fly  in  one  week." 

BoxCheck  =  1 
.SetEocus 
Exit  Sub 
End  If 

WeekMaxHrs2  =  OneWeekHrsBox2 
If  WeekMaxHrs  <  0  Or  WeekMaxHrs  >168  Then 
BoxCheck  =  1 

MsgBox  "Please  enter  a  number  between  0  and  168  for  the  maximum  number 
of  hours  a  crew  can  fly  in  one  week." 

Exit  Sub 
End  If 
End  With 
End  If 


156 


If  HoursCheck  =  2  Or  HoursCheck  =  4  Then 
With  OneMonthHrsBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  maximum  number  of  hours  a 
crew  can  fly  in  one  month." 

BoxCheck  =  1 
.SetFocus 
Exit  Sub 
End  If 

MonthMaxHrs2  =  OneMonthHrsBox2 
If  MonthMaxHrs2  <  0  Or  MonthMaxHrs2  >  720  Then 
BoxCheck  =  1 

MsgBox  "Please  enter  a  number  between  0  and  720  for  the  maximum  number 
of  hours  a  crew  can  fly  in  one  month." 

Exit  Sub 
End  If 
End  With 
End  If 

If  HoursCheck  =  3  Or  HoursCheck  =  4  Then 
With  ThreeMonthHrsBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  maximum  number  of  hours  a 
crew  can  fly  in  three  months." 

BoxCheck  =  1 
.SetEocus 
Exit  Sub 
End  If 

ThreeMonthMaxHrs2  =  ThreeMonthHrsBox2 
If  ThreeMonthMaxHrs2  <  0  Or  ThreeMonthMaxHrs2  >2160  Then 
BoxCheck  =  1 

MsgBox  "Please  enter  a  number  between  0  and  2160  for  the  maximum  number 
of  hours  a  crew  can  fly  in  three  months." 

Exit  Sub 
End  If 
End  With 
End  If 
'tankerS 


'Assigns  users  inputs  for  max  flying  hours  to  temporary  variables  to  calculate 
TempTimeErame 

'  Exits  proceedure  if  entry  to  box  does  not  meet  appropriate  criteria 
If  HoursCheck  =  1  Or  HoursCheck  =  4  Then 
With  OneWeekHrsBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 
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MsgBox  "Please  enter  a  numeric  value  for  the  maximum  number  of  hours  a 
crew  can  fly  in  one  week." 

BoxCheck  =  1 
•SetFocus 
Exit  Sub 
End  If 

WeekMaxHrsS  =  OneWeekHrsBoxS 
If  WeekMaxHrs  <  0  Or  WeekMaxHrs  >168  Then 
BoxCheck  =  I 

MsgBox  "Please  enter  a  number  between  0  and  168  for  the  maximum  number 
of  hours  a  crew  can  fly  in  one  week." 

Exit  Sub 
End  If 
End  With 
End  If 

If  HoursCheck  =  2  Or  HoursCheck  =  4  Then 
With  OneMonthHrsBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  maximum  number  of  hours  a 
crew  can  fly  in  one  month." 

BoxCheck  =  1 
.SetEocus 
Exit  Sub 
End  If 

MonthMaxHrsS  =  OneMonthHrsBoxS 
If  MonthMaxHrsS  <  0  Or  MonthMaxHrsS  >  720  Then 
BoxCheck  =  I 

MsgBox  "Please  enter  a  number  between  0  and  720  for  the  maximum  number 
of  hours  a  crew  can  fly  in  one  month." 

Exit  Sub 
End  If 
End  With 
End  If 

If  HoursCheck  =  3  Or  HoursCheck  =  4  Then 
With  ThreeMonthHrsBoxS 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  maximum  number  of  hours  a 
crew  can  fly  in  three  months." 

BoxCheck  =  1 
.SetEocus 
Exit  Sub 
End  If 

ThreeMonthMaxHrsS  =  ThreeMonthHrsBoxS 
If  ThreeMonthMaxHrsS  <  0  Or  ThreeMonthMaxHrsS  >2160  Then 
BoxCheck  =  I 
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MsgBox  "Please  enter  a  number  between  0  and  2160  for  the  maximum  number 
of  hours  a  erew  ean  fly  in  three  months." 

Exit  Sub 
End  If 
End  With 
End  If 
End  Sub 


Option  Explieit 

Dim  TempMOG  As  Double,  TempOpHours  As  Double,  TempQEaetor  As  Double, 
TempBaseEuel  As  Double,  BoxCheek  As  Integer,  _ 

MOGCapability  As  Double,  EuelCapability  As  Double,  _ 

TempMOG2  As  Double,  TempOpHours2  As  Double,  TempQEaetor2  As  Double, 
TempBaseEuel2  As  Double,  _ 

MOGCapability2  As  Double,  EuelCapability2  As  Double,  _ 

TempMOGS  As  Double,  TempOpHoursS  As  Double,  TempQEaetorS  As  Double, 
TempBaseEueB  As  Double,  _ 

MOGCapabilityS  As  Double,  EuelCapabilityS  As  Double 
Private  Sub  TextBox6_Change() 

End  Sub 
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Private  Sub  UserForm_Initialize() 

'  Checks  to  see  if  tanker  fuel  was  inputted  before  during  available  fuel  calculations 
'  If  it  was,  value  is  inputted  into  the  box 
If  Not  TankerFuelUsed  =  0  Then 

TankerFuelUsedBox.Value  =  TankerFuelUsed 
TankerPoundsOption  =  True 
End  If 

If  Not  TankerFuelUsed2  =  0  Then 

TankerFuelUsedBox2.Value  =  TankerFuelUsed2 
TankerPoundsOption  =  True 
End  If 

If  Not  TankerEuelUsedS  =  0  Then 

TankerEuelUsedBoxS  .Value  =  TankerEuelUsedS 
TankerPoundsOption  =  True 
End  If 
End  Sub 

Private  Sub  CmdCalcStationInt_Click() 

BoxCheck  =  0 

'  Calls  subroutine  to  check  if  inputs  are  valid 
Call  Checkinputs 
If  BoxCheck  =  I  Then 
Exit  Sub 
End  If 

'Calculate  Sortie  Generation  based  on  base's  data  considering  MOG  and  time  and  fuel 
capacity 

MOGCapability  =  TempMOG  *  TempOpHours  /  TotalGroundTime  *  TempQEactor 
EuelCapability  =  TempBaseEuel  /  (TankerEuelUsed  +  OffloadReq) 

MOGCapability2  =  TempMOG2  *  TempOpHours2  /  TotalGroundTime2  * 
TempQEactor2 

EuelCapability2  =  TempBaseEuel2  /  (TankerEuelUsed2  +  OffloadReq) 

MOGCapabilityS  =  TempMOGS  *  TempOpHoursS  /  TotalGroundTimeS  * 
TempQEactorS 

EuelCapabilityS  =  TempBaseEueB  /  (TankerEuelUsedS  +  OffloadReq) 

MsgBox  "The  maximum  sortie  generation  based  on  MOG  is  "  &  MOGCapability  & 
vbCrEf&_ 

"The  maximum  sortie  generation  based  on  fuel  is  &"  &  EuelCapability 
If  MOGCapability  <  EuelCapability  Then 
Baseint  =  MOGCapability 
Else 

Baseint  =  EuelCapability 
End  If 

If  Baseint  <  0  Then 
Baseint  =  0 
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End  If 

TempBaseIntBox  =  Baseint 

If  MOGCapability2  <  FuelCapability2  Then 
Baselnt2  =  MOGCapability2 
Else 

Baselnt2  =  EuelCapability2 
End  If 

If  Baselnt2  <  0  Then 
Baselnt2  =  0 
End  If 

TempBaseIntBox2  =  Baselnt2 

If  MOGCapabilityS  <  EuelCapabilityS  Then 
BaseIntS  =  MOGCapabilityS 
Else 

BaseIntS  =  EuelCapabilityS 
End  If 

If  BaseIntS  <  0  Then 
BaseIntS  =  0 
End  If 

TempBaseIntBoxS  =  BaseIntS 
End  Sub 

Private  Sub  CmdCancel_Click() 

'  Closes  the  form  without  saving  any  data 
Einload  Me 
End  Sub 

Private  Sub  InstructionsCmd_Click() 

InstructionsBaseInt.  Show 
End  Sub 

Private  Sub  RetumCmd_Click() 

InputBaseIntData.Hide 
End  Sub 

Sub  CheekInputsO 

'Assigns  users  inputs  to  temporary  variables  to  calculate  Station  Interval 
With  MOGBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  base's  Maximum  Aircraft  on 
Ground." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
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End  If 

TempMOG  =  MOGBox 
If  TempMOG  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  base's  Maximum  Aircraft  on 
Ground." 

•SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 
With  OpHoursBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  base's  Operating  Hours." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempOpHours  =  OpHoursBox 

If  TempOpHours  <  0  Or  TempOpHours  >  24  Then 

MsgBox  "Please  enter  a  number  between  0  and  24  Hours  for  the  base's  Operating 
Hours." 

.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 
With  BaseFuelBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  fuel  available  from  the  base." 
.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempBaseFuel  =  BaseFuelBox 
If  TempBaseFuel  <  0  Then 

MsgBox  "Please  enter  a  non  negative  value  for  the  fuel  available  from  the  base." 
.SetFocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

If  PoundsOption  =  False  And  GallonsOption  =  False  Then 
MsgBox  "Please  indicate  if  base  fuel  is  in  pounds  or  gallons." 

Exit  Sub 

Elself  GallonsOption  =  True  Then 

TempBaseFuel  =  TempBaseFuel  *  6.79 
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End  If 

With  QFactorBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  base's  Queuing  Effieiency." 
•SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempQEactor  =  QEactorBox 

If  TempQEactor  <  0  Or  TempQEaetor  >  1  Then 

MsgBox  "Please  enter  a  number  between  0  and  1  for  the  base's  Queuing  Factor." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

With  TankerFuelUsedBox 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  fuel  used  by  the  Tanker." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TankerFuelUsed  =  TankerFuelUsedBox 
If  TankerFuelUsed  <  0  Then 

MsgBox  "Please  enter  a  non  negative  value  for  the  fuel  used  by  the  Tanker." 
.SetEocus 
BoxCheck  =  1 
Exit  Sub 
End  If 
End  With 

If  TankerPoundsOption  =  False  And  TankerGallonsOption  =  False  Then 
MsgBox  "Please  indicate  if  tanker  fuel  is  in  pounds  or  gallons." 

Exit  Sub 

Elself  TankerGallonsOption  =  True  Then 
TankerFuelUsed  =  TankerFuelUsed  *  6.799 
End  If 

'tanker2 

'Assigns  users  inputs  to  temporary  variables  to  calculate  Station  Interval 
With  MOGBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numeric  value  for  the  base's  Maximum  Aircraft  on 
Ground." 

.SetEocus 
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BoxCheck  =  1 
Exit  Sub 
End  If 

TempMOG2  =  MOGBox2 
If  TempMOG2  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  base's  Maximum  Aireraft  on 
Ground." 

•SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  OpHoursBox2 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  base's  Operating  Hours." 

.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempOpHours2  =  OpHoursBox2 
If  TempOpHours2  <  0  Or  TempOpHours2  >  24  Then 

MsgBox  "Please  enter  a  number  between  0  and  24  Hours  for  the  base's  Operating 
Hours." 

.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  BaseEuelBox2 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  fuel  available  from  the  base." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempBaseEuel2  =  BaseEuelBox2 
If  TempBaseEuel2  <  0  Then 

MsgBox  "Please  enter  a  non  negative  value  for  the  fuel  available  from  the  base." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

If  PoundsOption  =  Ealse  And  GallonsOption  =  Ealse  Then 
MsgBox  "Please  indieate  if  base  fuel  is  in  pounds  or  gallons." 

Exit  Sub 
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Elself  GallonsOption  =  True  Then 

TempBaseFuel2  =  TempBaseFuel2  *  6.79 
End  If 

With  QFaetorBox2 

If  .Value  =  ""  Or  Not  IsNumerie(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  base's  Queuing  Efficieney." 
.SetFoeus 
BoxCheck  =  1 
Exit  Sub 
End  If 

TempQFactor2  =  QFaetorBox2 
If  TempQFaetor2  <  0  Or  TempQFaetor2  >  1  Then 

MsgBox  "Please  enter  a  number  between  0  and  1  for  the  base's  Queuing  Faetor." 
.SetFoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  TankerFuelUsedBox2 

If  .Value  =  ""  Or  Not  IsNumeric(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  fuel  used  by  the  Tanker." 
.SetFoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TankerFuelUsed2  =  TankerFuelUsedBox2 
If  TarLkerFuelUsed2  <  0  Then 

MsgBox  "Please  enter  a  non  negative  value  for  the  fuel  used  by  the  Tanker." 
.SetFoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

If  TankerPoundsOption  =  False  And  TankerGallonsOption  =  False  Then 
MsgBox  "Please  indieate  if  tanker  fuel  is  in  pounds  or  gallons." 

Exit  Sub 

Elself  TankerGallonsOption  =  True  Then 

TankerFuelUsed2  =  TankerFuelUsed2  *  6.799 
End  If 

'tankerS 

'Assigns  users  inputs  to  temporary  variables  to  ealculate  Station  Interval 
With  MOGBoxS 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 
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MsgBox  "Please  enter  a  numerie  value  for  the  base's  Maximum  Aireraft  on 
Ground." 

•SetFoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempMOGS  =  MOGBoxS 
If  TempMOGS  <  0  Then 

MsgBox  "Please  enter  a  nonnegative  value  for  the  base's  Maximum  Aireraft  on 
Ground." 

.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  OpHoursBoxS 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  base's  Operating  Hours." 

.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempOpHoursS  =  OpHoursBoxS 
If  TempOpHoursS  <  0  Or  TempOpHoursS  >  24  Then 

MsgBox  "Please  enter  a  number  between  0  and  24  Hours  for  the  base's  Operating 
Hours." 

.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  BaseEuelBoxS 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  fuel  available  from  the  base." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempBaseEueB  =  BaseEuelBoxS 
If  TempBaseEueB  <  0  Then 

MsgBox  "Please  enter  a  non  negative  value  for  the  fuel  available  from  the  base." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 
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If  PoundsOption  =  False  And  GallonsOption  =  False  Then 
MsgBox  "Please  indieate  if  base  fuel  is  in  pounds  or  gallons." 

Exit  Sub 

Elself  GallonsOption  =  True  Then 

TempBaseEueB  =  TempBaseEueB  *  6.79 
End  If 

With  QEaetorBoxS 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  base's  Queuing  Effieieney." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TempQEaetorS  =  QEaetorBoxS 
If  TempQEaetorS  <  0  Or  TempQEaetorS  >  1  Then 

MsgBox  "Please  enter  a  number  between  0  and  1  for  the  base's  Queuing  Eactor." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

With  TankerEuelUsedBoxS 

If  .Value  =  ""  Or  Not  IsNumerio(. Value)  Then 

MsgBox  "Please  enter  a  numerie  value  for  the  fuel  used  by  the  Tanker." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 

TankerEuelUsedS  =  TankerEuelUsedBoxS 
If  TankerEuelUsedS  <  0  Then 

MsgBox  "Please  enter  a  non  negative  value  for  the  fuel  used  by  the  Tanker." 
.SetEoeus 
BoxCheek  =  1 
Exit  Sub 
End  If 
End  With 

If  TankerPoundsOption  =  Ealse  And  TankerGallonsOption  =  Ealse  Then 
MsgBox  "Please  indieate  if  tanker  fuel  is  in  pounds  or  gallons." 

Exit  Sub 

Elself  TankerGallonsOption  =  True  Then 

TankerEuelUsedS  =  TankerEuelUsedS  *  6.799 
End  If 
End  Sub 

Below  is  the  eode  of  the  Module  in  VBA 
Option  Explieit 
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Public  OffloadReq  As  Long,  OffloadAvail  As  Long,  MissionReq  As  Long,  RTFT  As 
Double,  _ 

CycleTime  As  Double,  Aircraftint  As  Double,  Airerewint  As  Double,  _ 
TotalGroundTime  As  Double,  Baseint  As  Double,  MaxFuelAvail  As  Long,  _ 
CurrentFuel  As  Long,  TankerFuelUsed  As  Double,  CurrentTime  As  Variant,  _ 
ReturnToForm  As  Integer,  TraekRTFTEnter  As  Integer,  OffloadAvail!  As  Long, 
BoomMissionReq  As  Integer,  _ 

maxboommissionbox  As  Integer,  mintankersMissionReq  As  Integer,  RTFT2  As 
Double,  RTFT3  As  Double,  _ 

CyeleTime!  As  Double,  Aireraftint!  As  Double,  Airerewint!  As  Double,  _ 
TotalGroundTime!  As  Double,  Baseint!  As  Double,  MaxFuelAvail!  As  Long,  _ 
CyeleTimeS  As  Double,  AireraftIntS  As  Double,  AirerewIntS  As  Double,  _ 
TotalGroundTimeS  As  Double,  BaseIntS  As  Double,  MaxFuelAvaiB  As  Long,  _ 
TankerFuelUsed!  As  Double,  TankerFuelUsed!  As  Double,  OffloadAvail!  As  Long 


Sub  InstructionsO 

'  Opens  the  flrst  page  of  instructions,  which  gives  a  broad  overview  of  the  program 
'  Allows  the  user  to  advance  to  more  detailed  instructions  or  return  to  the  starting  sheet 
InstruetionsPg  1 .  Show 
End  Sub 

Sub  ToMainEormO 

'  Calls  the  form  whieh  the  user  will  enter  and  calculate  all  data 
TankerEuelUsed  =  0 
MainInput.Show 
End  Sub 

Sub  EnterDataManuallyO 

'  Place  holder  for  routine  to  check  if  user  wants  to  enter  data  manually 
'  Instead  of  asking  in  eaeh  routine 

End  Sub 

Sub  ReturnToMainEormO 

'  Places  the  main  sheet  in  the  background  again  and  returns  to  the  main  form 
ThisWorkbook.Worksheets("Tanker  Employment").  Activate 
'  Using  RetumToEorm,  seleets  which  form  to  return  the  user  to 
Select  Case  RetumToEorm 
Case  1 

InputEuelReqData.Show 
MainInput.Show 
Case  2 
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InputFuelAvailData.  Show 
Maininput.  Show 
Case  3 

Maininput.  Show 
Case  4 

InstructionsRTFT  .Show 
InputFirstRTFTData.Show 
Maininput.  Show 
Case  Else 

ThisWorkbook.Worksheets("Tanker  Employment").  Activate 
End  Select 
End  Sub 

Sub  PrintChart() 

'  Will  allow  the  user  to  print  the  chart 

MsgBox  "Place  holder  to  allow  user  to  print  chart" 

End  Sub 

Sub  ToBeginningSheetO 

'  Calls  the  form  which  the  user  will  enter  and  calculate  all  data 
ThisWorkbook.Worksheets("Tanker  Employment").  Activate 
End  Sub 

Eunction  RoundNear(varNumber  As  Variant,  varDelta  As  Variant)  As  Variant 

'  by  Dejan  Mladenovic,  <<http://advisor.com/doc/08884>>  accessed  31  Jan  05 
'  Rounds  varnumber  to  the  nearest  multiple  of  varDelta 

Dim  varDec  As  Variant 
Dim  intX  As  Integer 
Dim  varX  As  Variant 

varX  =  varNumber  /  varDelta 

intX  =  Int(varX) 

varDec  =  CDec(varX)  -  intX 

If  varDec  >=0.5  Then 
RoundNear  =  varDelta  *  (intX  +1) 

Else 

RoundNear  =  varDelta  *  intX 
End  If 

End  Eunction 
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Instructions  for  Entering  Data  to  Calculate  Aircraft  Interval 


To  calculate  Sortie  Generation  Rates  based  upon 
aircraft  data,  the  individual  sortie  generation  rate,  the 
number  of  available  aircraft,  aircraft  utilization,  and  the 
cycle  time  (in  hours)  are  used. 

When  this  form  is  opened,  a  number  vvl  be  in  the  single  Aircraft  Sortie 
Generation  Rate  box.  This  number  is  calculated  using  Cycle  Time  calculations 
inputted  eaiier  *.  The  user  can  modify  this  number  to  reflect  the  number  of 
times  a  tanker  can  be  generated  in  one  day. 

To  calculate  the  number  of  available  aircraft,  enter  the  number  of  assigned 
tankers  and  the  number  of  unavailable  aircraft  due  being  Non  Mission 
Capable,  or  unavailable  for  other  reasons  (including  alert  status,  programmed 
for  depot,  etc.) 


Aircraft  UtOization  is  a  number  between  0  and  1,  which  accounts  for 
scheduling  and  operatbnal  realities.  (For  example,  just  because  aircraft  is 
available  does  not  mean  there  is  a  missbn  to  fly.) 


*  The  cycle  time  can  only  be  entered  on  the  main  form,  by  either  entering 
the  data  manualy  or  using  the  button  to  open  a  form  to  input  data  to 
calculate  the  time. 


Done 


Option  Explicit 

Private  Sub  CmdCancel_Click() 
Unload  Me 
End  Sub 


Private  Sub  UserForm_Click() 
End  Sub 
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Instructions,  Data  Entry  for  Sortie  Generation,  Aircrew 


To  calculate  Sortie  Generation  Rates  based  upon 
aircrew  data,,  the  number  of  available  aircrew,  aircrew 
utilization,  the  maximum  flying  hours  in  a  given  time 
frame,  and  Round  Trip  Flying  time,  are  used. 


To  calculate  the  number  of  available  aircrew,  enter  the  number  of  assigned 
aircrew  and  the  number  of  unavailable  due  for  any  reason  such  as  being 
DNIF,  being  TDY,  etc.) 


Aircrew  Utization  is  a  number  between  0  and  1,  which  accounts  for 
scheduing  and  operational  realities.  (For  example,  just  because  a  crew  b 
ready  to  fly  does  not  mean  there  b  a  mBsion  to  fly.) 


Selecting  a  bme  frame  wl  prompt  the  user  to  enter  the  maximum  number  of 
flying  hours  for  that  period  into  the  form.  Addidonaly,  the  user  can  select  to 
consider  al  bme  periods  and  enter  the  maximum  hours  for  each  period.  If 
consider  al  b  selected,  the  most  restricbve  hours  wl  be  used  in  the  final 
calculation. 


The  Round  Trip  Flying  Time  can  only  be  entered  on  the  main  form,  either 
manually  or  using  the  button  to  open  a  form  to  catuate  the  bme. 


Done 


Option  Explicit 

Private  Sub  CmdCancel_Click() 
Unload  Me 
End  Sub 

Private  Sub  UserForm_Cliek() 
End  Sub 
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Instructions,  Data  Entry  for  Sortie  Generation,  BAse 


To  calculate  Sortie  Generation  Rates  based  upon  base  capabilities, 
the  bases  maximum  (aircraft)  on  ground,  total  operating  hours,  a 
queuing  factor,  fuel  used  by  the  tanker,  fuel  available  at  a  base, 
and  total  ground  time  are  used.  The  rate  will  be  the  minimum 
between  MOG  considerations  over  one  day,  and  fuel  availablity 
versus  requirements  over  one  day. 


MOG  values  can  either  be  for  fueling  or  parking.  If  the  tvvo  numbers  are  not  equal,  use  the 
bvver  value.  MOG  values  can  be  determined  by  contacting  the  base  or  TACC. 


Base  Hours  should  be  inputed  as  the  total  hours  per  day  the  base  is  open.  The  number 
should  be  between  0  and  24. 


Queuing  Factor  s  a  number  between  0  and  1,  whichaccounts  for  scheduing  and 
operational  realties.  (For  example,  just  because  the  base  can  service  an  aircraft  does  not 
mean  there  is  an  aircraft  requiring  servidng.)  The  factor  used  in  AFI 10-1403  s  .85  but  can 
be  adjusted  to  base's  individual  circumstances." 


The  fuel  used  in  flight  wl  be  calculated  earier  from  the  main  form,  and  inputted  into  this 
form.  The  user  wl  have  the  optbn  to  accept  it  or  modify  the  number. 


The  Maximum  Fuel  avalabe  at  a  base  s  a  factor  of  how  much  fuel  ran  be  detvered  daiy  to 
a  base,  and  of  that,  how  much  ran  be  dispensed  daly. 


The  total  ground  Gme  ran  only  be  entered  on  the  main  form,  by  either  entering  the  data 
manualy  or  uang  the  button  to  open  a  form  to  input  data  to  calculate  the  time. 


Done 


□ 


Option  Explicit 


Private  Sub  CmdCancel_Click() 
Unload  Me 
End  Sub 


Private  Sub  UserForm_Cliek() 
End  Sub 
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Instructions  for  Entering  Available  Fuel 


To  calculate  the  fuel  available  for  offload,  the  amount  of 
fuel  on  board  at  takeoff,  fuel  received  in  air,  the  sortie 
duration,  fuel  burn,  destinate  reserve  fuel,  and  offload 
utilization  must  be  inputed  into  the  form.  (Sortie 
durations  is  calculated  using  distance  to  refueling  point, 
time  at  point,  and  return  distance  multiplied  by  air  speed.) 


Note:  Not  all  tanker  aircraft  can  receive  fuel  in  air. 


Offload  utilization  is  a  number  between  0  and  1,  which  accounts  for 
scheduling  and  operational  realities.  (For  example,  just  because  a  tanker  is 
in  air  does  does  not  mean  there  is  a  receiver  requiring  fuel.) 


Two  charts,  air  speed  and  fuel  burn,  are  available  for  reference.  Selecting 
these  will  take  the  user  to  the  chart.  (T o  return  to  this  form,  select 
"Return"  on  the  chart.)  The  information  on  the  charts  can  be  modified  by 
the  user  as  required.  (See  Main  Instructions,  page  5,  for  more  details  on 
updating  charts.) 


1 


Distance  must  be  in  nautical  miles. 

Air  Speed  must  be  in  nautical  miles  per  hour. 

Fuel  Burn  Rate  must  be  in  pounds  per  hour. 

Total  Fuel,  Received  Fuel  and  Reserve  Fuel  must  be  in  pounds 


Use  conversion  buttons  below  if  required 


Convert  Miles  to  Nautical  Miles 


Convert  Gallons  to  Pounds 


Convert  Minutes  to  Hours 


Done 


n 


Option  Explicit 


Dim  Miles  As  Variant,  NauticalMiles  As  Long,  Gallons  As  Variant,  Pounds  As  Long 
Dim  Hours  As  Long,  Minutes  As  Variant 

Private  Sub  CmdCaneel_Click() 

Unload  Me 
End  Sub 
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Private  Sub  GallonConversionCmd_Click() 

'  Opens  input  box  to  allow  user  to  input  gallons  and  returns  the  number  of  pounds 
Gallons  =  InputBox("Enter  the  number  of  gallons  to  eonvert  to  pounds:",  _ 
"Gallons  to  Pounds  Conversion") 

If  Gallons  =  ""  Or  Not  IsNumerio(Gallons)  Then 

MsgBox  "You  must  enter  a  numerieal  value  to  be  eonverted." 

Exit  Sub 
End  If 

Pounds  =  Gallons  *  6.799 

MsgBox  "The  number  of  Pounds  is  "  &  Pounds 

End  Sub 

Private  Sub  MileConversionCmd_Cliek() 

'  Opens  input  box  to  allow  user  to  input  miles  and  returns  the  number  of  nautieal  miles 
Miles  =  InputBox("Enter  the  number  of  miles  to  eonvert  to  nautieal  miles:",  _ 
"Miles  to  Nautieal  Mile  Conversion") 

If  Miles  =  ""  Or  Not  IsNumerio(Miles)  Then 

MsgBox  "You  must  enter  a  numerieal  value  to  be  eonverted." 

Exit  Sub 
End  If 

NautiealMiles  =  Miles  *  0.868976242 
MsgBox  "The  number  of  Nautieal  Miles  is  "  &  NautiealMiles 
End  Sub 

Private  Sub  MinuteConversionCmd_Cliek() 

'  Opens  input  box  to  allow  user  to  input  miles  and  returns  the  number  of  nautieal  miles 
Minutes  =  InputBox("Enter  the  number  of  minutes  to  eonvert  to  hours:",  _ 
"Minutes  to  Hours  Conversion") 

If  Minutes  =  ""  Or  Not  IsNumerio(Minutes)  Then 

MsgBox  "You  must  enter  a  numerieal  value  to  be  eonverted." 

Exit  Sub 
End  If 

Hours  =  Minutes  \  60 

MsgBox  "The  number  of  Hours  is  "  &  Hours 
End  Sub 


Private  Sub  UserPorm_Click() 
End  Sub 
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Option  Explicit 

Dim  Miles  As  Variant,  NauticalMiles  As  Long,  Gallons  As  Variant,  Pounds  As  Long 
Dim  Hours  As  Long,  Minutes  As  Variant 

Private  Sub  CmdCancel_Click() 

Unload  Me 
End  Sub 


Private  Sub  GallonConversionCmd_Click() 

'  Opens  input  box  to  allow  user  to  input  gallons  and  returns  the  number  of  pounds 
Gallons  =  InputBox("Enter  the  number  of  gallons  to  convert  to  pounds:",  _ 
"Gallons  to  Pounds  Conversion") 

If  Gallons  =  ""  Or  Not  IsNumerio(Gallons)  Then 

MsgBox  "You  must  enter  a  numerical  value  to  be  converted." 
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Exit  Sub 
End  If 

Pounds  =  Gallons  *  6.799 
MsgBox  "The  number  of  Pounds  is  "  &  Pounds 
End  Sub 


Private  Sub  MileConversionCmd_Cliek() 

'  Opens  input  box  to  allow  user  to  input  miles  and  returns  the  number  of  nautieal  miles 
Miles  =  InputBox("Enter  the  number  of  miles  to  eonvert  to  nautieal  miles:",  _ 
"Miles  to  Nautieal  Mile  Conversion") 

If  Miles  =  ""  Or  Not  IsNumerio(Miles)  Then 

MsgBox  "You  must  enter  a  numerieal  value  to  be  eonverted." 

Exit  Sub 
End  If 

NautiealMiles  =  Miles  *  0.868976242 
MsgBox  "The  number  of  Nautieal  Miles  is  "  &  NautiealMiles 
End  Sub 

Private  Sub  MinuteConversionCmd_Cliek() 

'  Opens  input  box  to  allow  user  to  input  miles  and  returns  the  number  of  nautieal  miles 
Minutes  =  InputBox("Enter  the  number  of  minutes  to  eonvert  to  hours:",  _ 
"Minutes  to  Hours  Conversion") 

If  Minutes  =  ""  Or  Not  IsNumerio(Minutes)  Then 

MsgBox  "You  must  enter  a  numerieal  value  to  be  eonverted." 

Exit  Sub 
End  If 

Hours  =  Minutes  \  60 

MsgBox  "The  number  of  Hours  is  "  &  Hours 
End  Sub 

Private  Sub  UserPorm_Cliek() 

End  Sub 
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Fuel  Burn  Rates 


Aircraft  T>pe 

Fuel  Bum  Rate 
(LbsHr) 

AOA-10 

4,160 

B-707 

13,916 

B-747 

26,800 

B-767 

10,552 

C-130 

5,109 

C-141 

13,768 

C-17 

19,643 

C-5 

23,132 

C-9 

6,661 

DC-10 

20,616 

DC-8 

13,916 

F-117 

9,197 

F-15C 

10,822 

F-15E 

12,669 

F-16 

5,854 

F-18 

5,829 

F-22A 

13,154 

KC-10 

17,830 

KC-135R 

10,718 

L-1011 

17,219 

MD-11 

17,511 

Source:  Air  Force  Pamphlet  10-1403 
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Receiver  Planning  Factors 

(Data  format  in  work) 


TYPE  ACFT 

Internal 

MAX  FUEL 
(10,000 
LBS) 

External 

#  Bags 

Low 

PPH  BURN 

RATE 

Med 

Hi 

PLN  AIRSPEED 

Low  -  Med/Hi 

MAX 

Distto 

AAR 

MAX  ON 

LOAD 

OPT  AAR 

ALT 

A-6E 

15.9 

2 

3(5) 

8 

6 

5 

435T-0.8M 

450NM 

10-14K 

150-200 

A-10 

10.7 

4.0- 

2(3) 

5,3 

4.5 

4 

310T-0.5M 

500NM 

5.5K 

100-200 

AC-130H 

40 

8 

6.2 

240T-300T 

800NM 

30K 

80-150 

AC-130U 

40 

7 

6 

5 

240T-300T 

1500NM 

30K 

80-150 

AMX-0/R 

6.2 

10/1.9 

2or2 

5.3 

4.2 

3.8 

420T-0.7M 

500NM 

6K 

150-220 

AV-8B 

7,7 

2 

2(4) 

8 

5.8 

5 

480T-0.8M 

400NM 

7,0K 

150-240 

B-1B 

220 

39 

18 

16 

500T-0.85M 

4400NM 

190K 

160-220 

B-2 

o 

00 

17 

14 

12 

420T-0.7M 

4000NM 

150+ 

240-270 

B-52 

305 

4.7 

2 

26.5 

22 

15 

360T-0.8M 

6400NM 

270K 

240-310 

C-5 

332 

30 

25 

24 

420T-0.8M 

2000+ 

90K+ 

180-260 

C-17 

184/274 

-/37.5 

-/2 

24 

22 

17 

420T-0.8M 

2000+ 

90K+ 

120-310 

C-1 35/707  (all) 

85-155 

14 

12 

11 

2001-2751 

4000NM 

60/1 OOK 

200-260 

C-141 

153 

15 

13.5 

12 

420T-0.85M 

2000+ 

120K 

200-260 

CV-22 

13.5 

9 

7 

6 

275T-275I 

700NM 

10K 

100-180 

E-3A/C 

160 

15 

14 

13 

2001  -  0.72M 

2500NM 

100K 

200-260 

E-3D/F 

155 

15 

14 

13 

200I-0.72M 

2500NM 

90K 

200-260 

E-4 

343 

26 

24 

22 

460T-0.9M 

5000NM 

240K 

200-260 

iF-22 

18 

2(4) 

11.8 

8.6 

7.6 

250I-0.85M 

700NM 

18K 

No  Data 

Bum  Rates:  40K'/30K720K' 

|F-22 

18 

0(4) 

8.6 

6.3 

5.5 

250I-0.85M 

450NM 

14K 

No  Data 

Bum  Rates:  40K'/30K720K’ 

|f-117 

18.2 

9 

7.5 

6.5 

500T-0.85M 

450NM 

14K 

180-260 

GR-7  (AV-8) 

7.7 

2(4) 

8 

5 

4 

480T-0.8M 

400NM 

7.7K 

150-250 

I  Jaguar  (all) 

7.8 

3/2wng 

8 

6.4 

5.8 

450T-0.8M 

450NM 

7K 

100-180 

I  Joint  Strike  Fighter 

18.3 

2(2) 

6 

5.5 

5.4 

250I-0.85M 

1000NM 

18K 

No  Data 

Bum  Rates;  40K730K720K' 

I  Joint  Strike  Fighter 

18.3 

0(2) 

5.1 

4.7 

4.4 

250I-0.85M 

750NM 

15K 

No  Data 

Bum  Rates;  40K730K720K' 

M2000C(A-A) 

7 

1-Feb 

8 

6 

5 

470T-0.9M 

400NM 

8K 

220-270 

|m2000D/K  (Gnd  Attk) 

8.2 

1-Feb 

9 

7 

6 

470T-0.9M 

400NM 

9K 

150-230 

Imc-isoh 

60 

6.2 

5.3 

4.8 

260T-300T 

3600NM 

65K 

80-160 

B 

C 

D 

E 

F 

G 

H 

J 

K 

L 

C*5 

332 

30 

25 

24 

420T-0.8M 

2000+ 

90K+ 

180-260 

c-17 

184/274 

-/37.5 

-12 

24 

22 

17 

420T-0.8M 

2000+ 

90K+ 

120-310 

C-135/707  (all) 

85-155 

14 

12 

11 

2001  -  2751 

4000NM 

60/1  OOK 

200-260 

C-141 

153 

15 

13.5 

12 

420T-0.85M 

2000+ 

120K 

200-260 

CV-22 

13.5 

9 

7 

6 

275T-275I 

700NM 

10K 

100-180 

E-3A/C 

160 

15 

14 

13 

200I-0.72M 

2500NM 

100K 

200-260 

E-3D/F 

155 

15 

14 

13 

200I-0.72M 

2500NM 

90K 

200-260 

E-4 

343 

26 

24 

22 

460T-0,9M 

5000NM 

240K 

200-260 

iF-22 

18 

2(4) 

11.8 

8.6 

7.6 

250I-0.85M 

700NM 

18K 

NO  Data 

Bum  Rates:  40K730K’C0K' 

F-22 

18 

0(4) 

8.6 

6,3 

5.5 

250I-0.85M 

450NM 

14K 

No  Data 

Bum  Rates:  40K'/30K720K' 

|f-117 

18.2 

9 

7.5 

6.5 

500T-0.85M 

450NM 

14K 

180-260 

GR-7  (AV-8) 

7.7 

2(4) 

8 

5 

4 

480T-0.8M 

400NM 

7.7K 

150-250 

1  Jaguar  (all) 

7.8 

3/2wng 

8 

6.4 

5.8 

450T-0.8M 

450NM 

7K 

100-180 

1  Joint  Strike  Fighter 

18.3 

2(2) 

6 

5.5 

5.4 

250I-0.85M 

1000NM 

18K 

No  Data 

Burn  Rates;  40K'/30K’/20K 

1  Joint  Strike  Fighter 

18.3 

0(2) 

5.1 

4.7 

4.4 

250I-0.85M 

750NM 

15K 

No  Data 

Burn  Rates;  40K'/30K’/20K' 

M2000C(A-A} 

7 

1-Feb 

8 

6 

5 

470T-0.9M 

400NM 

8K 

220-270 

|m2000D/K  (Gnd  Attk) 

8.2 

1-Feb 

9 

7 

6 

470T-0.9M 

400NM 

9K 

150-230 

MC-130H 

60 

6.2 

5.3 

4.8 

260T-300T 

3600NM 

55K 

80-160 

|mC-130P 

60-82 

6.2 

5.3 

4.8 

210I-300T 

3600NM 

55K 

80-160 

MIRF-1  CFUCT 

7.6 

1-Feb 

6 

5 

4 

475T-0.9M 

400NM 

7K 

150-220 

1  Rafale 

9.4 

2or2(4) 

9 

6.5 

5 

480T-335I 

750NM 

9K 

200-290 

RC-135S  (Cobra  Ball) 

155 

16 

13 

12.5 

420T-0.84 

4000NM 

100K 

200-260 

|rC-135V/W(RJ) 

155 

15.4 

12,4 

12 

420T-0.84 

4000NM 

100K 

200-260 

RC-135U  (Cbt  Sent) 

155 

17 

15 

14 

400T-0.78 

3500NM 

100K 

180-250 

|s-3 

13.1 

2.8 

2.6 

2.4 

210T-440T 

1200NM 

6.0K 

120-200 

SHARF  (Sea  Harrier) 

7,7 

2(4) 

8 

5 

4 

480T-0.8M 

400NM 

7.0K 

150-250 

llornado  F-3(ADV) 

11.2 

2-3(4) 

8 

6.4 

5.8 

450T-0.85M 

750NM 

11 

150-230 

2.2K  Bags  also  used 

[Tornado  (all  others) 

11.2 

2+2or4 

8 

6.4 

5.8 

450T-0,85M 

750NM 

150-230 

2.2K  Bags  also  used 

Source:  All  data  derived  from  multiple  unclassified  internet  sources;  CAPES  Course  Nellis  AFB.  ‘Janes'  data.  PFPS.  and  aircraft  T.O.  data 
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Block  Speeds 


Air  craft 
Type 

Mach 

500  nm 

1000  nm 

1500  nm 

2000  nm 

2500  nm 

3000  nm 

3500  nm 

4000  nm 

4500  nm 

5000  nm 

5500  nm 

6000  nm 

C-9 

0.78 

344 

397 

414 

420 

421 

- 

- 

- 

- 

- 

- 

- 

C-130 

0.49 

242 

266 

272 

273 

272 

271 

- 

- 

- 

- 

- 

- 

C-141 

0.74 

332 

380 

396 

401 

401 

401 

4C4 

407 

409 

410 

- 

- 

C-17 

0.76 

335 

384 

400 

405 

406 

406 

409 

412 

- 

- 

- 

- 

C-5 

0.77 

341 

393 

410 

415 

416 

416 

420 

422 

424 

426 

428 

429 

KC-10 

0.81 

354 

410 

428 

435 

436 

437 

440 

443 

446 

447 

449 

450 

KC-135 

0.79 

348 

401 

419 

425 

426 

426 

430 

433 

435 

437 

438 

439 

B-707 

0.8 

351 

405 

424 

430 

431 

432 

435 

438 

- 

- 

- 

- 

B-747 

0.84 

363 

422 

442 

450 

451 

452 

456 

459 

461 

463 

465 

466 

B-767 

0.81 

354 

410 

428 

435 

436 

437 

440 

443 

446 

447 

- 

- 

DC-8 

0.8 

351 

405 

424 

430 

431 

432 

435 

438 

440 

442 

- 

- 

DC-10 

0.83 

360 

418 

438 

445 

446 

447 

451 

454 

456 

458 

. 

. 

L-1011 

0.81 

354 

410 

428 

435 

436 

437 

440 

443 

446 

447 

- 

- 

MD-11 

0.83 

360 

418 

438 

445 

446 

447 

451 

454 

456 

458 

460 

461 

I  For  speed  of  combat,  please  reference  the  applicable  flight  manual  speeds  | 


Source;  Air  Force  Pamphlet  10-1403 
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